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Noviembre es un buen mes para todos los aficionados a la informáti¬ 
ca. Se celebra en Madrid el SIMO, donde tienen cabida todo tipo de 
ordenadores y donde estaremos como espectadores y como expositores 
a fin de informarles en tomo al mundo del Spectrum, al igual que hici¬ 
mos el mes pasado en Barcelona con motivo del SONIMAG y del que 
les damos buena cuenta en este número. No obstante la mayor nove¬ 
dad llegaría antes de finalizar esta feria, con la presentación del Spec¬ 
trum plus, una nueva versión del Spectrum con teclado profesional, del 
que les daremos más información en el próximo número. 

Pero noviembre es también un mes duro para cuantos trabajan sin 
descanso para poder tener listos sus programas para el SIMO en unos 
casos y para navidades en otros. El resultado a buen seguro que será 
muy positivo para todos los usuarios del Spectrum que podrán así dis¬ 
poner de una mayor oferta. 


4 NOVEDADES SONIMAG 84. Lo ultimo en software y 
hardware, preludió del SIMO de este mes. 

9 CODIGO MAQUINA PARA AMPLIAR EL BASIC. 
Tres nuevas instrucciones que potencian el lenguaje BA¬ 
SIC. 

14 SOFTWARE PARA ORDENAR EL SOFTWARE. Pro¬ 
fundice en la programación y ordene su archivo de progra¬ 
mas. 

20 VJJ-3D: GRAFICOS EN TRES DIMENSIONES. Ex¬ 
ploramos las capacidades gráficas de este programa. 

26 LLEGO EL FORTH. Un lenguaje que entra “pisando 
fuerte”. 

32 BASE DE DATOS EN MICRODRIVE. Archivos de da¬ 
tos en cassette y microdrive. 

36 CUANDO AL EDITOR LE CONQUISTO LA IMPRE¬ 
SORA. Escriba todo lo que quiera, ¡pero con un buen edi¬ 
tor! 

43 PREGUNTAS Y RESPUESTAS. Nuestros lectores se 
las saben todas... bueno, casi todas. 

44 PROGRAMAS. El famoso frogger para que todos puedan 
saltar, ¡de alegría! Desvelado el misterio del boxeador 
que no quería pelear. 

58, 66 GUSANEZ. Nuestra traviesa mascota ataca de nue¬ 
vo. 
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NOVEDADES 



E S en el campo del software 
donde las novedades se hi¬ 
cieron más patentes, pero 
tampoco faltaron periféri¬ 
cos de interés e incluso el nuevo 
QL de la casa Sinclair, que por pri¬ 
mera vez caía en las manos del pú¬ 


blico español. Pero vayamos por 
partes a analizar las distintas nove¬ 
dades. 

Decíamos que el software fue lo 
más llamativo. Pero no seríamos 
justos si no destacásemos la gran 
labor en materia de software edu- 


Un año más del 1 al 7 de 
octubre se celebró en 
Barcelona el salón de la 
imagen, sonido y 
electrónica, conocido por el 
Sonimag. Junto a tres 
grandes pabellones 
dedicados a los clásicos 
audio-visnales, con un 
llamativo retroceso en 
cuanto a la presencia de los 
radioaficionados, se 
encontraba un pequeño y 
acogedor pabellón dedicado 
al mundo de la informática, 
especialmente en cuanto a 
los ordenadores domésticos 
se refiere. Un buen lugar 
para grandes y chicos, pero 
especialmente para estos 
últimos, para quienes ios 
distintos expositores 
posibilitaron el libro uso de 
los ordenadores. 

cativo que vienen desarrollando 
activas casas de software catalanas, 
la mayoría de ellas de reciente apa¬ 
rición en el mercado. Una de estas 
empresas es Idealogic, quienes han 
adaptado el software de las multi¬ 
nacionales americanas Spinnaker 
y Fisher Pnce a los ordenadores 























SONIVIAG '84 



L n sofisticado ínter face puede permitir al Spectmm 
la toma de datos externos 



E>os libros más, preludio de la avalancha prevista 
para las próximas navidades. 


Apple, Commodore y Spectrum. 
Los distintos programas presenta¬ 
dos van dirigidos al público infan¬ 
til con edades entre los 8 y los 14 
años. 

Con carácter igualmente educa¬ 
tivo estaba el programa BASIC 
para las primeras lecciones de este 
lenguaje. Y el programa Cale, uno 
de los más completos que hemos 
visto en el campo de las matemáti¬ 
cas. Profesor Dietético era otra de 


las novedades especialmente reco¬ 
mendable para los que deseen vigi¬ 
lar más de cerca su alimentación. 
Estos tres programas eran presen¬ 
tados por Software Centre, empre¬ 
sa que aglutina a un nutrido núme¬ 
ro de jóvenes programadores. Esta 
misma empresa presentaba tam¬ 
bién dos paquetes de programas 
para el microdrive: Fichero-- 
agenda, ti pico archivo de datos, y 
Tecno-ari para la realización de 
dibujos con las facilidades de al¬ 


macenamiento rápido en micro¬ 
drive. 

Tampoco faltaban los famosos 
arcade games o j uegos de aventu¬ 
ras, en su mayoría traídos de las 
listas de éxito del mercado inglés. 
Este no era el caso del Mad cars 
realizado por Ventamatic, carrera 
de coches a través de un inmenso 
recorrido sobre campo a través, de¬ 
siertos, puentes sobre el mar e in¬ 
cluso carreteras fantasmas. Tam¬ 
bién la casa Software Centre apro- 



Verbor: un pequeño robot que obedece a sus 
instrucciones verbales, 


Profesor dietético. Una forma distinta de 
controlar su dieta. 


























vechaba la ocasión para presentar 
el programa Juegos olímpicos, que 
tenían la particularidad de utilizar 
un sintetizador de voz. Desgracia¬ 
damente habremos de esperar al¬ 
gunas semanas para su comerciali¬ 
zación. 

En el campo de las aplicaciones 
profesionales Ventamatic presentó 
las mayores novedades: Coniext 
V.6 es la versión sexta del Coniext 
basado en la originaria idea del 
Tassword que comentábamos en 
el número anterior. Otra de las 
aplicaciones «serias» fue el SITI o 
Sistema Integrado de Tratamiento 
de la Información. Base de datos 
de 10 Kbytes de memoria en códi¬ 
go máquina que permite la realiza¬ 
ción de cálculos complejos entre 
¡os distintos campos de una ficha. 
Igualmente realizado por los pro¬ 
gramadores de esta conocida fir¬ 
ma. 



No busque los cables... este joystick fuñe i una por 
rayos infrarrojos. 



Cassette especial para ordenadores de fácil 
manejo* 


Las novedades hardware más 
importantes vendrían de la mano 
de Investrónica. Por primera vez se 
podía «tocar» el QL y por primera 
vez se escuchaban fechas: ¡para úl¬ 
timos de noviembre! Mucho nos 
tememos que al igual que ocurrió 
en Inglaterra, la espera será un 
poco más larga, pero por el mo¬ 
mento se pudo ver de cerca el con¬ 
trovertido ordenador y los cuatro 
paquetes de aplicaciones que lo 
acompañan. Pero no estaba por 
ello olvidado nuestro querido 
Spectrum. Junto a él aparecían 
unas unidades de discos fabricados 
por Sinclair en Portugal, de apa¬ 
riencia bastante robusta, sobre las 
que nadie se atrevía aventurar pre¬ 
cios o fechas de aparición. Por fin 
pudimos ver una auténtica unidad 
de discos para el Spectrum de 22 Ú 



Por fin lle^ó la esperada unidad tic discos de la 
mano de Sinclair. 



í ornean, Joystick programahlc para cuatro posiciones. 

Tan sencillo que parece imposible que nadie lo ¡mentase antes. 




















El rancho. Programas educativos para Jos más 
pequeños. 


TOKUERSION DE S I5TEMP5 DE HEDIDR 

1 METROS R PIES 

£ PULGfiDñS 

3 * - y 

i METROS í £ fl PIES T2 

5¡ YRPC'PS T 5 

ó MILIMETROS P PIE 5 

? ' P FUL=3ftDFi5 

S v P MIlS 

9- ■ ' tS P PULOPOPS t £ 

L 0 KILOMETROS P MIL_R5 MflU* 

L1 M IL <_ R S EST , 

12 KILOMETROS T2 P PCRE 5 

L3 CENTIMETROS P PIES 

L >4- P ULGHd p s 

L 5 CENTIMETROS -*'2 P PULGRDflS T¿ 
L E ■* 0 P RIES t S 

LT GRPDG 5 -PPC I RUE S ■ l -3 PRD. -GRRD 
I PPPPI MENU P FltiO I"PL 
DICITE 50 ELECCION 


Matemáticas para todos con el programa Cale, 


Kbytes por disco, (160 por cara). 
Junto a ellos aparecía «un amigo 
muy personal» según rezaba la pu¬ 
blicidad sobre Verbot , el robot 
apenas superior a !a altura de un 
balón de fútbol que obedece a la 
voz. 

No menos espectacular resulta¬ 
ba el joystick por infrarrojos pre¬ 
sentado por Sitelsa que también 
presentaba el cassette Euromatic, 
especial para ordenadores y el co¬ 
nocido Sweet Talker, una modali¬ 
dad de sintetizador de voz. El cas¬ 
sette permite la lectura/grabación 
sin desconectar las conexiones 
EAR/MIC, incorporando un led 
indicativo de conexión a la red y 
otro indicativo de transferencia de 
datos. 

Tics, empresa especializada en 


el campo de la medición, presentó 
un controlador que permitía la 
toma de datos externos a través del 
bus de expansión (en el próximo 
número de TODOSPECTRUM su 
inventor nos explicará en detalle 
este dispositivo). 

Tampoco faltó la atractiva ta¬ 
bleta digitalizadora Grafpad im¬ 
portada por. Ventamatic, junto con 
un curioso joystick de fácil progra¬ 
mación para cualquier tecla y de 
un diseño un tanto arcaico: el 
Comcon. (Basta colocar las cone¬ 
xiones en las teclas que utiliza el 
juego para poder utilizar el joys¬ 
tick), Pensando en los amantes de 
la música, presentaban también el 
interface Midi para instrumentos 
musicales electrónicos, utilizado 
corrientemente para la conexión a 


sintetízadores y cajas de ritmos 
programable. 

En el capítulo bibliográfico la 
firma Ventamatic presentó dos li¬ 
bros con dos títulos sugestivos: 
«Los superjuegos del ZX-Spec- 
trum 16K/48K, y Z X-Interface 
1 y ZX -Microdrives: Qué son, 
para qué sirven, y cómo se usan.» 

Finalmente indicar que cuantos 
hacemos TODOSPECTRUM. 
también estuvimos presentes, al 
igual que estaremos en el SIMO, 
en el presente mes de noviembre 
en Madrid, a fin de daros toda la 
información que necesitéis y, por 
supuesto, para conocemos mejor. 
Para aquellos que no podáis asistir 
a esta feria, os daremos cumplida 
información en el número de i pró¬ 
ximo mes. 



Stands especiales para que 
todos padiesen tfver y tocar», 



Los chicos fueron los 
grandes protagonistas. 






















J. M, PUBLICIDAD 








TRES NUEVOS COMANDOS 

CON CODIGO MAQUINA 




ampliado 


En este artículo veremos cómo añadir al Basic tres nuevas instrucciones: 

— SCREENS n... que resulta equivalente a las siguientes instrucciones 
Basic: BORDER n : PAPER n : IMK 9 : FLASH 0 : BRIGHT 0 : CLS. 

— INVERSE... que intercambia los colores de INK y PAPER en la zona de 
atributos de la pantalla. 

— BIN... que ahora significa “Bit INverse” e invierte la pantalla normal. 


E l 1NTERFACE I, aparte de 
permitir un almacenamien¬ 
to rápido de información 
■■I en microdrives, la conexión 
vía RS232 y el trabajo en 
red (network), también nos ofrece 


la oculta posibilidad de ampliar el 
BASIC con nuevas instrucciones. 

El interface permite saltar a una 
subrutina escrita por el usuario 
cuando se comete un error sintác¬ 
tico. Esto significa que se puede 


llamar subrutinas en lenguaje má¬ 
quina cambiando la sintaxis de la 
mayoría de las instrucciones. 

Cuando se comete un error sin- 
táctico el control se transfiere a la M 
ROM del interface, que llamare- Vi 












mos a partir de ahora “shadow 
ROM” (shadow - sombra), que se 
encarga de comprobar si el error 
está producido por una instrucción 
del interface. De ser así, esta se eje¬ 
cuta sin más complicaciones. En 
caso contrario, se ejecuta un salto a 
la dirección que indica la variable 
del sistema VECTOR. 

Esta variable normalmente tiene 
el valor #01FO (# significa hexade- 
cimal) que produce la generación 
del mensaje de syntax error. Pero 
podemos cambiar este valor para 
que indique el comienzo de nues¬ 
tra subrutina situada en RAM, 

La subrutina RAM debe tener 
dos módulos diferenciados, uno 
para comprobar la sintaxis de la 
instrucción modificada y otra para 
ejecutar realmente dicha instruc¬ 
ción. Al escribir esta parte del pro¬ 
grama debe tenerse en cuenta dos 
cosas: 



— Se ha producido el paginado 
de la ROM, por tanto los RST tie¬ 
nen otro efecto. 

— No se produce la lectura de 
teclado ni el incremento de frames. 


El listado realizado en lenguaje 
máquina añade y ejecuta las ins¬ 
trucciones arriba descritas. Está 
realizado con el ensamblador 
GENS 3M de HISOFT. 

En la primera parte, se crean las 
variables del sistema mediante el 
hook code (código gancho, o códi¬ 
go de transferencia) #31 y a conti¬ 
nuación se da el valor deí comien¬ 
zo de nuestra subrutina a la varia¬ 
ble VECTOR, acto seguido se de, 
vuelve el control al BASIC. 

Cada vez que ocurra un error 
sintáctico, será ejecutada nuestra 
subrutina. En el punto de entrada 
de la subrutína el acumulador con¬ 
tendrá el código del primer carác¬ 
ter de la instrucción menos 206. 
Lo primero que haremos será com¬ 
probar si pertenece a alguna de las 
instrucciones que hemos añadido. 
De ser así pasaremos el control al 
analizador sintáctico principal co¬ 
rrespondiente. En caso contrario 


1 REM ********:*********#***** 

2 REM * BASIC AMPLIADO para * 

3 REM * INTERFACE 1 * 

4 REM ****+*■*#**+#**#******•■»■* 

5 REM 

6 REM 

7 REM Se baja el RAMIOP 
10 OLEAR 59999 

20 LET SO-O; REM suma de 

c omp r ob ac i on 
30 LET START=6E4: REM 

dirección de comienzo 
40 CLS 3 PRINT "ESPERA, estay 
pokeanda el codigo" 

50 POR i “STAR! TfJ START+119 
60 READ A: POKE i. , A 
70 LET SOSO A 
80 NEXT i 
85 REM 

90 XF SC<>12627 THEN CLS : PR 
INT "ERROR en la suma de comprad 
ación": PRINT’s PRINT "Lü.SIENTO 
": STOP 

100 REM Escribe la nueva 
sintaxis 

110 CLS s PRINT "El BASIC tiene 
ahora las siguientes nue 

. vas instrucciones:" 


í 20 PRINT TAB 4;"5CREEN! n" ?s F 
□R i s»l TO 9; PRINT CHE! 85 s NEXT 

i: PRINT DVER 15"_" 

130 PRINT "Es eqival ente a BORO 
DER n: PñPER n ; INK 9í BRIGHT Os FLA 
SH 0:CLS" 1 2 3 4 5 6 7 ’ 7 * * 

140 PRINT TAB 45"INVERSE"5: FOR 
I~i TO 7: PRINT CHR4 Bí : NEXT I 

; PRINT OVER 15"_" 

150 PRINT "Cambia los valores d 
e: INK y PAPER en la zona de 

atr i batos" 7 7 7 

160 PRINT TAB 4 5"BIN"5: F0R I = 1 
TO 3: PRINT CHR! 8;: NEXT I: PR 

INT a VER 1 5 11 __" 

170 PRINT 11 Invierte la situado 
n de los pixels de pantalla" 
180 PRINT tt15"Pulsa cualquier 
tecla para continuar." 

190 PAUSE ls PAUSE 0 

199 REM Rutina de salvamento 

del codigo 

200 CLS : PRINT "En que slstem 

a des e as salvar el cod1qo?" 

210 PRINT TAB 10;"1-CASETE"s PR 
INT TAB í 0 5 "2—MIGRODRI VE"s PRINT 
TAB 10;"3-NINGUNO" 

220 LET A$=INKEY!: IF A*< "1" ÜR . 
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generaremos un mensaje de syntax 
error saltando a la posición # 01 ID 
de la shadow ROM. 

Supongamos que el carácter es 
el ioken de SCREENS y que por 
tanto hemos saltado a la línea 300 
para realizar el análisis sintáctico 
principal de la instrucción. 

Hacemos llamadas a las subruti¬ 
nas de análisis de la ROM princi¬ 
pal utilizando la instrucción RST 
#10 seguida de la dirección de la 
subrutina que queremos ejecutar 
(conviene hacer notar que hemos 
paginado a la shadow ROM y que 
por tanto RST #10 no significa es¬ 
cribir un carácter). Hacemos lla¬ 
madas a NEXTCHR (#0020) para 
incrementar el puntero de carácter 
y a NUMEX (#IC82) para evaluar 
una expresión numérica. 

Esta última subrutina comprue¬ 
ba la sintaxis de una expresión nu¬ 
mérica y en el momento de la eje¬ 


cución la calcula y sitúa su resulta¬ 
do en el stack (pila) del calculador. 
También se efectúa una llamada a 
la subrutina de la shadow ROM 
STEND (#05 B7) para comprobar 
si se ha alcanzado el final de la ins¬ 
trucción. 

Los otros dos analizadores sin¬ 
tácticos principales actúan de 
igual manera. Las rutinas son las 
mismas, y para ejecutar cualquier 
otra porción de código haremos el 
salto mediante RST #10. El retor¬ 
no se realiza mediante un JP 
#050 (ojo, nada de RET). Me¬ 
diante este JP devolveremos el 
control al analizador de BASIC. 

Rutinas de ejecución 
de SCREENS n: 

El valor de n se toma del stack y 
se guarda en el registro H. El color 
del borde se cambia llamando la 
rutina apropiada de la ROM prin¬ 


cipal. El color de la tinta (INK) se 
cambia a blanco o a negro para lo¬ 
grar el máximo contraste, y se 
guarda junto con el color del papel 
en la variable del sistema ATTR- 
P. 

Rutinas de ejecución 
para IN VERSE: 

Cargamos en BC el comienzo de 
la zona de atributos de pantalla, y 
utilizamos los registros A y D para 
intercambiar los colores de papel y 
tinta (INK). Posteriormente se in¬ 
crementa el par de registros BC y 
se cierra el bucle, que se ejecutará 
hasta que hayamos cubierto toda 
la zona de atributos. 

Rutinas de ejcución 
para BIN: 

BC se carga con la dirección del 
comienzo de la memoria de panta- 


A$>"3" THEN GO TO 220 

225 IF A$-"3" THEN Gü ID 240 

230 GO SUB 1000«VAL A$ 

240 CLS : PRINT "El BASIC AMR 
LIADO ya es operafc 

i va. 11 

250 RANDÜMIZE USR 6©4 ¡ REM ej 
©cucion 

260 GO TO 16000 s REM -fin de 
programa 

499 REM DATAS del codigo maquin 
a 

500 DATA 207,49,1,106,234.237,6 
7, 183, 92, 201,254220, 40, 11,254,1 
5,40,42,254,246,40,76,195 

51O DATñ 240,1,215,32,0,215,130 
, 28,205, 183,5,215,148,30,103,215 
,151,34,124,7,7,7,254 *25,48 
520 DATA 2,246,7,50,141,92,215, 
107,13,195,193,5,215,32,0,205 * 18 
3,5,1,0,88,10,230,7,7,7 
530 DATA 7,87,10, 230,56,15,15,1 
5,130, 87,10,230,192, 130,2,3,120, 
254,91,32,230,195,193,5,215 
540 DATA 32,0,205,183,5,1,0,64, 
10,238,255,2,3,120,254,88,32,246 
,195,193,5 


999 REM Rutina de grabación en 
casete 

1000 CLS : PRINT "INTRODUCE UNA 
CINTA y DESCONECTA *EA 

R" " 

1010 S A VE " B AS I Camp 11 CODE START, 1 
20 

1020 CLS ; F'RINT "Ya he grabada 
los datas en el casete con el 
nombre BASICamp.” 

1030 RETUEN 

1999 REM Rut: i na de g r abac i on 
en microdrive 

2000 CLS s PRINT ''Grabando en el 
microdri ve., " 

2010 INPLJT “NOMBRE DEL FICHERO" 5 
F$,"NUMERO DE DRIVE"5 D 
2020 IF F*="" DR LEN F$>10 THEN 
GO TO 2010 

2030 PRINT ’ ? "PULSA CLJAL.QU IER T 
ECLA PARA GRABAR ";F$¡ PRIN 

T " EN EL ORIVE NUMERO "|¡ D 
2040 PAUSE 1; PAUSE 0 
2050 SAVE *"M"? DjFÍCDDE START,12 
0 

2060 RETURN 





lia. El acumulador se utiliza para 
hacer la inversión de la pantalla 
mediante una operación O EX¬ 
CLUSIVA con#FF. Aquí también 
se cierra un bucle que se repite 
hasta que se ha realizado la inver¬ 
sión de toda la pantalla. 

El programa en BASIC es para 
aquellos que no posean un ensam¬ 
blador, Introdúzcase el programa y 
sálvese en cassette o microdrive 
antes de ejecutarlo. Posteriormen¬ 
te ejecútese. Si se produce un men¬ 
saje de error en la suma de com¬ 
probación (checksum), revísense 
los datos de las líneas 500 a 540, 
Una vez que todo esté correcto 
aparecerán en pantalla las nuevas 
instrucciones y las acciones que es¬ 
tas realizan. Posteriormente se 
debe optar entre guardar el código 
máquina en cassette o microdrive. 
Síganse las instrucciones que apa¬ 
rezcan en pantalla. Para utilizar 
las nuevas instrucciones, una vez 
salvadas, introdúzcanse las si¬ 
guientes órdenes directas: 

CLEAR 59999: LOAD” “CODE 
{para cassette) 

(LOAD “M”;d;“nombre”CODE 
para microdrive)'. RANDOMIZE 

USR 6e4 

* 

Las instrucciones del BASIC am¬ 
pliado no funcionarán después de 
un NEW, pero volverán a ser váli- 



m 

i 1 


20 




; CAMBIO DE ATRIBUTOS 


40 

; PANTALLA CON SCREENSn 


50 

; E INVERSION CON INVERSE 


60 

; Y BIN PARA USUARIOS DEL 


70 

; INTERFACE 1 


m 



90 

; 


100 


EA60 

no 

INICIA ORO 60000 iDIREC DE COMIENZO 

EAGO cf 

[20 

RST #8 ¡FIJAR NUEVAS VARIABLES 

EA6I 31 

E30 

DEFB *31 

EA62 0IÓAEA 

140 

LD BCSTART 

EA6S ED43B75C 

L f 0 

LD (VECTORLBC 

EA69 C9 

[60 

RET ¡VUELTA AL BASIC 


170 



[80 

; COMPROBACION DE SINTAXIS 


190 


EA6A FEDC 

200 

START CP # DC ;TOKEN DE $CREEN$-20ó 

EA6C CA7CEA 

210 

JP Z,SCRSIN 

EAóF FEOF 

220 

CP # OF ;TOKEN DE IN VERSE-206 

EA7I CA9FEA 

230 

IP ZJNVSIN 

EA74 FEF6 

240 

C P # Fó ¡TOKEN DE B1N^206 

EA76 CAC5EA 

250 

JP zJíNSIN 

EA79 C3FÜÜ1 

260 

JP ERROR 


270 



280 

: ANALIZADOR DE SCREEIS 


290 


EA7C D7 

300 

SCRSIN RST # 10 ¡COGE EL SIGUIENTE CARACTER 

EA7D 2000 

310 

DEFW NEXTCH 

EA7F 07 

320 

RST #10 -COGE EXPRESION NUMERICA 

EA80 82IC 

330 

DEFW NUMEXP 

EAS2 CDB7G5 

340 

CALL STEND ¡COMPRUEBA FINAL INS^ 



TRUCCÍON 


350 

¡ 


360 

; RUTINAS DE EJECUCION DE SCREENS 


370 


EA85 D? 

380 

RST # 10 ¡PONE EL COLOR EN EL ACUMU¬ 



LADOR 

EA86 941E 

390 

DEFW UNSTA 

EAM 67 

400 

LD H,A 

EA89 D7 

410 , 

RST # 10 CAMBIA BORDER 

HABA 9722 

420 

DEFW BORDER 

EASC 7C 

430 

LD A,H ¡RECUPERA A 

EA8D 07 

440 

RLCA ¡PASA COLOR A LOS BITS 3-5 

EA8E 07 

450 

RLCA 

EA8F 07 

460 

RLCA 

EA90 FE 19 

470 

CP 25 ;COMPARA NIVEL DE CONTRASTE 

EA92 3002 

480 ( 

JR NCJNKO ¡TINTA (ÍNK) NEGRA 

EA94 F607 

490 

QR 7 ¡TINTA (INK) BLANCA 

EA% 32SD5C 

500 

¡NKG LD {ATTR PKA ¡CAMBIO INK Y PAPER 

EA99 D7 

510 

RST # 10 ¡BORRA PANTALLA 

EA9A 6BOD 

520 

DEFW CLS 

EA9C C3CIÜ5 

530 

JP BASIC ¡VUELTA AL BASIC 


540 



550 



560 



570 

; ANALIZADOR DE INVERSE 


580 


EA9F D7 

590 

JNVSIN RST #10 ¡COGE SIGUIENTE CARACTER 

EAAÜ 2000 

600 

DEFW NEXTCH 

EAA2 CDB705 

610 

CALL STEND ¡COMPRUEBA FIN DE INS¬ 



TRUCCION 


620 

¡ 


630 

; RUTINAS DE EJECUCION DE INVERSE 


640 


EAA5 010058 

650 

LD BC P ATR ;BC^COMIENZO ZONA ATRI¬ 



BUTOS 

EAA8 0A 

660 

BUCLE LD A,íBC) ¡A=ATRlBUTO 

EAA9 E607 

670 

AND 7 ¡A=TÍNTA (INK) ANTIGUA 














EAAB 

07 

680 


RLCA 


EAAC 

07 

690 


RUTA 


EAAD 

07 

700 


RLCA 

:A=NUEVO PAPEL 

EAAE 

57 

710 


LD 

D.A -DsNUEVO PAPEL 

EAAF 

0A 

720 


LD 

A t (BC);A=ATRIBUTO 

EA8Q 

E638 

730 


AND 

%00111000 ;A=PAPEL ANTIGUO 

EAB2 

0F 

740 


RRCA 


EAB3 

0F 

750 


RRCA 


EAB4 

0F 

760 


RRCA 

;A=NUEVA TINTA (INK) 

EAB5 

82 

770 


ADD 

A,D ;A=NUEVOS TINTA (INK) Y PAPEL 

EAB6 

57 

780 


LD 

D,A ;D=NUEVOS TINTA (INK) Y PAPEL 

EAB7 

0A 

790 


LD 

A, í FJC):A-ATRIBUTO 

EABS 

EóCG 

800 


AND 

%11000000 ;A=BRILÍP (BR1GHT) Y 

flash 

EABA 

82 

810 


ADD 

A,D ¡A=NUEVO ATRIBUTO 

EABB 

02 

820 


LD 

(BO,A ¡CAMBIO EN PANTALLA 

EABC 

03 

830 


INC 

BC 

EABD 

78 

840 


LD 

A,B 

EABE 

FE5B 

850 


CP 

# 5B ¡COMPRUEBA FIN ZONA ATRIBU¬ 
TOS 

EACO 

20E6 

860 


JR 

NZ,BUCLE ¡CIERRA EL BUCLE 

EAC2 

C3C105 

870 


JP 

BASIC ¡VUELTA AL BASIC 



880 

¡ 





1 890 

i 





900 

; 





! 9 10 

; ANALIZADOR DE BIN 



920 




EAC5 

D7 

930 

RISIN 

RST 

* 10 ;COGE SIGUIENTE CARACTER 

E4C6 

2000 

940 


DEFW 

NEXTCH 

EAC8 

CDB705 

950 


CALL 

STEND ¡COMPRUEBA FIN INSTRUC¬ 
CION 



9h0 

; 





970 

; RUTINAS DE EJECUCION DE BJN 



980 

* 



EACB 

010040 

990 


LD 

BC,PANTA ;BC-COMIENZO MEMORIA 
PANTALLA 

HACE 

0A 

1000 

LAZO 

LD 

A,(BC) ;A=BYTE DE PANTALLA 

EACF 

EEFF 

1010 


XOR 

#FF;SE INVIERTE 

EADI 

02 

1020 


LD 

(BC^A ¡SE DEVUELVE CAMBIADO 

EAD2 

03 

1030 


ÍNC 

BC ¡SE INCREMENTA BC 

EADj 

78 

1040 


LD 

A,B 

EAD4 

FE58 

1050 


CP 

#58 ¡COMPRUEBA FINAL DE PANTA- ¡ 
LLA 

EADú 

20F6 

1060 


IR 

NZ*LAZO ¡CIERRA EL BUCLE 

EAD8 

C3C105 

1070 


JP 

BASIC ¡VUELTA AL BASIC 



1080 

* 





1090 

i 





UÜ0 

i 





1 ] 10 

* 





! 1 20 ¡ 

; ETIQUETAS 




1130 

i 



5CB7 


1140 

VECTOR 

EQU 

#5CB7 ¡VECTOR PARA AMPLIACION 






BASIC 

.G1F0 


USO 

ERROR 

EQU 

#01FÜ ¡ERROR SINTACTICO (SHA- 






DO W) 

0020 


1 160 

NEXTCH 

EQU 

#0020 ¡COGE SIGUIENTE CARACTER 






ÍPRIMC) 

1C82 


1 170 

NUMEXP 

EQU 

# IC82 ¡COGE EXPRESION NUMERI¬ 






CA (PRINC) 

05B7 


1180 

STEND 

EQU 

#05B7 ¡COMPRUEBA FIN INSTRUC 






(SHA DOW) 

IE94 


1 190 

UNSTA 

EQU 

#1E94 ¡PASA DE 3TACK A ACUM, 






(PRINC) 

2297 


] 200 

BORDER 

EQU 

#2297 ¡CAMBIA COLOR DEL BORDE 






(PRINC) 

5CSD 


1210 

ATT_P 

EQU 

#5C8D ¡VARIABLE DE ATRIBUTOS 

GD6B 


1220 

CLS 

EQU 

#0DóR ¡BORRA PANTALLA (PRINC) 

05CI 


1230 

BASIC 

EQU 

#050 ¡VUELTA AL BASIC (SHADOW) 

5800 


1240 

ATR 

EQU 

#5800 ¡COMIENZO ZONA DE ATRIBU¬ 






TOS 

4000 


1250 

PANTA 

EQU 

#4000 ¡CGMIEZO MEMORIA DE PAN¬ 






TALLA 



1270; 





das si se ejecutan un RANDOMI- 
ZEUSR 6e4. 

Una vez que estén las nuevas 
instrucciones operativas, escriba 
SCREENS 1, y toda la pantalla se 
pondrá de color azul, así como 
blancas las teclas. Las instruccio¬ 
nes INVERSE y BIN tendrán el 
mismo efecto visual en la pantalla. 
La instrucción BIN influye en los' 
resultados de la función POINT ya 
que si un punto estaba encendido, 
ahora estará apagado, y viceversa. 
Una aplicación específica de BIN 
es la inversión de volcados de pan¬ 
talla. 


# Ic82 

principa] 

tomar expresión numé¬ 
rica 

#lc8c 

principa] 

tomar expresión allanó¬ 
me rica 

#0018 

principal 

pasa el hyte actual al 
acumulador 

#0020 

principal: 

pasa el hyte siguiente al 
actual acumulador 

#0110 

shadow 

error sintáctico 

#05b7 

shadow 

comprobación de fin de 
instrucción 

#05cl 

shadow 

retorno ai intérprete 
BASIC 

#0020 

shadow 

produce un errar de la 
shadow ROM (debe ir 
seguido por un número 
comprendida entre#16 

y:#ff) 

#0028 

shadow 

produce un error de la 
ROM principal (debe 
cargarse el código de 
error en la posición 
#5c3a) 


¿Le pareció complicado? Si tie¬ 
ne alguna duda no lo dude: escrí¬ 
banos. Nuestro «experto» en códi¬ 
go máquina promete contestar a 
todos. 

Anímese, no se conforme con 
las funciones que incorpora su 
Spectrum y crease aquellas que 
sustituyan a esas viejas rutinas que 
viene utilizando desde hace tiem¬ 
po. Si le funciona, nuestra más fer¬ 
viente enhorabuena, y si lo coloca 
en un sobre a nuestra dirección, 
doble enhorabuena - por la publica¬ 
ción de su futuro artículo. 















P ara realizar un buen progra¬ 
ma hay que olvidar el orde¬ 
nador. Al menos mientras 
se tenga claro lo que se 
quiere hacer y cómo se va a 
llevar a cabo. Eso es lo que hici¬ 
mos con el programa que le mos¬ 
tramos a continuación y que le ser¬ 
virá para ordenar sus programas 
almacenados en cassette de una 
forma tan original como didáctica. 


Problema 

Realizar un programa que alma¬ 
cene los datos relativos a los pro¬ 
gramas que se guarda en cada cas¬ 
sette y obtener una copia por im¬ 
presora. Deberá permitir la actua¬ 
lización de la información confor¬ 
me se vaya cambiando los datos 
del cassette. Aprovechando que la 
impresora de Sinclair o cuales¬ 


quiera otra similar, presenta un 
ancho de papel igual al ancho del 
cassette, también deberá realizar 
una copia por impresora para 
adaptarse al cassette. 

Analizando el problema en pro¬ 
fundidad, el programa debe posibi¬ 
litar la entrada de datos por tecla¬ 
do. Las opciones de impresión por 
pantalla e impresora serán opcio¬ 
nales y según la información se lee- 
























donada. Aprovechando la posibi¬ 
lidad del Spectrum de grabar los 
datos conjuntamente con el pro¬ 
grama, se grabará la información 
utilizando este procedimiento, lo 
que lleva a proteger el programa 
ante el posible uso de la instruc¬ 
ción RUN. Por tanto, otra de las 
opciones que habrá de tener el 
programa será la anulación de la 
información que se estime conve¬ 
niente. Para programar de forma 
ordenada, las distintas opciones se 
incorporarán en forma de “menu’\ 
que constituirá la parte principal 
desde donde se bifurcará a los mó¬ 
dulos o bloques de instrucciones 
que realicen las distintas opciones. 

Procedimiento a seguir 

1. Inicializar las variables a 
utilizar (variables numéricas, alfa- 
numéricas y tablas). 

2. Presentar opciones del 
menú: 

— Introducción de los datos 
(creación del archivo). 

— Impresión de los datos (pan- 
lalla/im preso ra). 

— Actualización de los datos. 

— Eliminación de los datos. 


— Impresión en formato espe¬ 
cial para el cassette. 

— Grabación de los datos. 

— Eliminación de todos los da¬ 
tos. 

Finalizada la opción elegida se 
volverá al menú para nuevas op¬ 
ciones. 

3. La creación del archivo su¬ 
pone: 

— Definir un contador de ar¬ 
chivos (el número de archivos 
existentes + 1). 

— Introducción de datos. 

— Incrementar el contador de 
archivos. 

— Sub-opciones para poder vi¬ 
sualizar los datos introducidos, 
crear un nuevo archivo o volver al 
menú. 

4. Operaciones comunes a la 
impresión de datos por pantalla o 
impresora serán: 

— Introducción del código de 
archivo. 

— Impresión del contenido en 
pantalla. 

— Sub-opciones: impresión en 
impresora (COPY), visualizadón 
de otro archivo o volver al menú. 

5. La revisión de datos deberá 
tener los siguientes pasos: 


— Introducción del código de 
archivo a revisar. 

— Impresión por pantalla de i’a 
información del archivo solicita¬ 
do. 

— Introducción de nuevos da¬ 
tos si así se desea. 

— Visualización de los nuevos 
datos introducidos, en su caso. 

— Volver al menú. 

6. Para eliminar un archivo: 

— Introducción del código de 
archivo a eliminar. 

— Visualizar el nombre y refe¬ 
rencia del archivo que se pretende 
eliminar. 

— Confirmar la eliminación. 

— Borrar el contenido del ar¬ 
chivo seleccionado. 

— Trasladar los datos de archi¬ 
vos por encima del eliminado, sí 
los hubiere, para mantener la se¬ 
cuencia de numeración automáti¬ 
ca de archivos. 

— Actualizar el contador de ar¬ 
chivos (número de archivos exis¬ 
tentes- 1). 

— Sub-opción: Listado de los 
archivos (COPY) para tener una 
copia de la nueva situación y vol¬ 
ver al menú. 

— Volver al menú. 


S 

10 

20 

30 

4-0 

50 

50 

70 

30 

90 

100 

110 

120 

130 

140 

150 

160 


feSn 

OIM 

DIM 

DIM 

DIM 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LeT 

LET 

LET 

LET 


Si»"PICHERO*!" 
FICHERO CASSETTE 
üi 110,4) 

N$ i 10 , 16) 

P* í10i 10,15) 

T(I*,10,3) 

X *0 
F *0 
Ei-" i( 

Rt*"REF■ CINTA: 
Bi«"NOMBRE CINTA: 
Ft*"FICHERO: " 

Gt»"NOMBRE PROS.: 
Hf »"CONTADOR:" 

Ifa"DESDE " 

TF =0_ 

X<=‘ 


170 


130 

120 

191 

192 
200 
210 
220 
230 
240 

ERO" 
25 0 
RÜ“ 
260 
270 
5 DE 


LET Y 

ti!TR 


«TF 


REM ******** 
REM * *MENU * * 
REM ******** 
PRINT 3J 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


B 10; "MENU' 


1. CREAR FICHERO" 
,"2. UER/LISTAR FICH 


PRINT i i 
PRINT i , 
CINTA" 


"3. COMPROBAR FICHE 

4. BORRAR FICHERO" 

5. LISTAR ETIQUETA 


28® PRINT ,*"6. GUARDRR FICHERO 
3" 

290 PRINT , , "7 . BORRAR TODOS LO 
5 FICHEROS n 

300 PRINT "INTRODUZCA LA OPCI 
ON" 

310 INPUT M 

320 IF Mil ÜR M>? THEN 00 TO 30 

0 

325 IF M*6 OR M*7 THEN 00 TO M# 
1000 
330 CLS 

340 00 SUB M *1000 
350 CLS 

35S IF Xil THEN 00 TO 20 
360 00 TO 210 

000 REM ******************* 

910 REM *4 CREAR FICHERO #* 

920 REM ******************* 

1000 LET FaTP+1 

1010 IF F < *10 THEN GO TO 1020 

1015 PRINT "*N0 HAY SITIO PARA 0 
TRO FICHERO*" "AL UOLUER AL MENU 

ELIGA LA "'"OPCION 'GUARDA 

R FICHERO' PARA .ALMACENAR L 

OS FICHEROS ACTUALES .LUEGO BO 

RRE LOS FICHEROS PARA .CREAR 

UNA NUEUA TABLA." 

1016 PAUSE 300 

1017 RETURN 

1020 PRINT "TRABAJANDO EN FICHES 

t, t J+l n , ri* 

u mu * j r 

1030 PRINT AT 2,0;"TECLEE REF. C 
ASSETTE (4 CARAO.)" 

1040 INPUT CiíF) 

1050 PRINT AT 2,0;E|;AT 2,0;Bi;" 
7 (MAX.15 CAR.) " 















7. Impresión de los datos en 
formato de cassette. 

— Introducción del código de 
archivo a imprimir. 

— Impresión de la información 
en el formato de cassette. 

— Volver al menú. 

8. La grabación de los datos 
supone: 

— Posibilidad de que el usuario 
elija un nombre para la grabación. 

— Confirmar la grabación (vol¬ 
ver al menú en caso negativo). 

— Detener el programa hasta 
que el cassette esté preparado. 

— Grabar el programa en forma 
de autoejecución. (SAVE “LINE” 
XXXX). 

— Volver al menú. 

9. Eliminar toda la informa¬ 
ción: 

— Confirmar la eliminación. 

— Utilizar CLEAR para mayor 
rapidez. 

— Reinicializar las variables. 

— Volver al menú. 


REF. CINTA: 

NOMBRE CINTA: 

HIFI FICHERO: l 

todo*ptclrun 

NQM6RE PROü. 

1 CONTADOR 

litSM - 

1 CüM COCOS 

« 50 

2 Tht hobbi1 

&0 69 

3 Rjidrti 

99 199 

4 G r * *icol 

105 119 

S Él S € l 

129 159 

6 Ciumgo 

4.69 170 

RÉF■ CINTA: 

HIFI FICHERO: I 

NOnBRE CINTA: 

todoiptctruo 

i Biiaxii 2\ a 00 220 

e 

0 0 

9 

0 0 

10 

0 0 


Ktirmatu especial para cassette. 


Variables 

C$ (10,4) 

Referencia del cassette (4 caracte¬ 
res). 

N$ (10,15) 

Nombre del cassette (15 caracte¬ 
res). 

P$(10, 10,15) 


10 nombres de programas (15 ca¬ 
racteres) para cada uno de los 10 
cassettes. 

T (10,10,2) 

Numeración del contador inicial y 
final para cada uno de los progra¬ 
mas de tos distintos cassettes. 

F 

Código del cassette con el que se 
está trabajando. 

TF 

Contador de archivos (máximo 

10 ). 

M$ 

Variable alfanumérica utilizada en 
los menús. 

M 

Variable numérica utilizada en los 
menús. 

S$ 

Nombre del programa. 

N, L 

Variables utilizadas en bucles. 

ES 

Variable nula para utilizar en im¬ 
presión. 

AS, B$, F$, 


D 


ÍS?S prxnt Sí ( gU;Ci;RT 

LEE NOMBRE DE PROG. Y CUENTA" 


TEC 


i li 

I 


109 a por n-i to 10 

1100 PRINT AT 4,0;"PROGRAMA " i N 
1110 PRINT O*;" ?(1S CHRS MAXÍ" 
1180 INPUT P|(F,NI 
1130 PRINT AT B,0; 

DESDE?" 

1140 INPUT I CP,N,1)_ „ 

1150 PRINT RT 6,0; HASTA ? 

1160 INPUT T (P , N, 8> 

1165 CLS 

1170 PRINT AT 7 J 0;E*jAT 5,0;"OTR 
0 PROGRAMA ?tS/N) r ' 

1190 íp P M*»"N" THEN GO T0 1880 
1200 IF MJO"N" AND M*0"S" THEN 
GO TO 1170 
1210 NEXT N 
1880 CUS 

íaal prÍnt F "crear otro pichero ( 

F * MEw/ím E ?" ' "TECLEE 

P,U 0 M." 

T M* 

THEN 00 TO 1890 


r i v w < i ■ 

1240 INPUT MI 
1860 IP 

1260 LET r«P+l 


1270 CLS 
1860 GO SUB 1080 

1890 CLS ^ _ _ 

1295 IP M§«"V" THEN GO SUB 8020 
1300 RETURN 

1980 REM ******************* 

1990 REM *** UER PICHERO *** 

1991 REM ******************* 


2000 PRINT "QUE PICHERO?" 

2010 INPUT P 

2015 REM «ENTRRDA DESDE OTRAS SU 

BRUTINASi 

2020 CLS 

2030 IP TP < >0 AND P<-TF AND F>»1 
THEN GO T0 2110 

8040 PRINT "NO EXISTE NINGUN PIC 
HER0 CON ESENUMERO. MENU <M> O U 
ER OTRO Pl- CHEPO ÍU)." 

2060 INPUT M| 

2070 IP M»«"U" THEN GO TO 2000 
2060 IF THEN RETURN 

2090 PRINT "SIGA LAS INSTRUCCION 
ES" 

a100 GO T0 2050 
2110 CLS 
2120 PRINT F*;P 
2130 PRINT ,,Hl;Ct ÍF> 

2140 PRINT "»*«**««*••**•«*•**«» 
##*#*#•*##**" 

2150 PRINT G$;TAB 20;H|¡TAB 80;I 


i 


160 PRINT 


10 


"."iPilP.N);TAB 
S6;T(P,N,8) 


20 ; 


2170 POR N*1 TO 
2160 PRINT N; 

T ÍF ,N , 1) ; TAB 
2185 NEXT N 
2190 PRINT RT 21,0j "LISTAR CU ,SI 
GUIENTE <S) ,MENU<M)?" 

2200 INPUT MI 

2210 PRINT RT 21,0;El 

2220 IF MI«"L" THEN COPY 

2230 IP Mi< >"S" THEN G0 TO 2310 

2840 LET FiF+1 

2850 IP P < «*TP THEN GO TO 2300 





















£255 CLS 

2269 PRINT "NO HRY NUM. TRN RLTO 
8 11 

2270 PAUSE 150 
2200 CLS 

2290 90 TO 2310 
2300 00 SUB 2020 
2310 RETURN 

2990 REM. ******************* 

2990 REM ««REVISAR PICHERO*i 
2996 REM ******************* _ 

3000 PRINT "QUE PICHERO REVISO 7 
(1 RL 10) 11 
3010 INPUT P 

3020 IF F<«TF THEN 00 TO 3060 
3030 PRINT "NO EXISTE" 

3040 PRUSE 150 
3050 RETURN 
3060 CLS 

3070 PRINT "LRS CARACTERISTICRS 
DEL FICHERO " ;F; J ' SE LISTRRRN. P 

ULSE 'ENTER'.SI ESTR CORRECTO 

O TECLEE ORTOS NUEVOS" 

30S0 PAUSE 150 
3090 POKE 23692,-1 
3100 PRINT RÍjCÍ(P) 

3110 INPUT Mi 

3120 IP MI-"* THEN 00 TO 3170 
3130 LET Ct IP)aM| 

3140 CLS 

3160 POKE 23692,-1 

3160 PRINT "NUEVO";AtíCttP) 

3170 POKE 23692,-1 
3180 PRINT a»; " " j N| (P) 

3190 INPUT MI 

3200 IP M|a" ” THEN 00 TO 3265 
3210 LET Nt CP)aMI 


3220 CLS 

3230 POKE 236921-1 
3240 PRINT RÍjCttP) 

3260 POKE 23698,-1 

3260 PRINT "NUeOo NOMBRE DEL CRS 

SETTE ";Nt(P) 

3266 POKE 23692,-1 

3270 POR Nal TO 10 

3380 PRINT RT 20,Oj"PROO,";N;" N 

OMBRE "¡PIÍF.N) 

3390 INPUT M| 

3400 IP Mt < >" " THEN LET P*(F,N>- 

síao POKE 23692,-1 

3430 PRINT RT 2Í,Oj"CONTADOR INI 

CIRL : " ; T CF , N , 1) J " 

3440 INPUT Mt 

3480 IF MIO*" THEN LET TCF,N,1) 

■URL MI _ 

3460 PRINT RT 21,0;"DESDE CINTA: 

" j T (F , N, 1) ; " R LR: 1 ; T (P , N , 2) 


/ i \ r ¿ j i. * } n 

3470 INPUT Mt 
3480 IP Mto T " 


THEN LET T (P , N , 2) 

■URL Mt 

3490 PRINT RT 21,0; "DESDE CINTA; 
" i T (F , N, 1) ; " A LA: f ‘;T tF,N,2) 

3496 POKE 23692,-1 
3500 NEXT N 
3610 RETURN 

3990 REM **#**»*****««***** 

4000 REM ««BORRAR FICHERO** 

4001 REM ****************** 

4010 PRINT "QUE FICHERO DESER BO 
RRRR ?.il RL 10)" 

4020 INPUT F 

4030 IF F<aTF RND F>al TMEN 90 T 
O 4070 



































































































Variables utilizadas para la impre¬ 
sión. 

X 

Indicador del uso de la instrucción 
CLEAR para pasar, en su caso, a la 
reinicialización de variables. 

Otra consideración a realizar 
antes de meterse a realizar el pro¬ 
grama es la utilización de los mó¬ 
dulos mediante subrutinas. Siem¬ 
pre es aconsejable evitar toda com¬ 
plicación, y ya que siempre se de¬ 
vuelve el control al menú, se evita¬ 
rán las subrutinas siempre que sea 
necesario cambiándose por los 
GOTO. 

Inicialmente se preparará para 
almacenar los nombres de progra¬ 
mas con un número máximo de 10 
por cassette y 10 cassettes en total. 
Posteriormente, según la memoria 
disponible, se puede cambiar fácil¬ 
mente para aumentar la capaci¬ 
dad. Un organigrama nos ayudará 
a ver el proceso de forma ciará. 



404.0 PRINT “NO EXISTE ESE FICHER 
0 “ 

4050 PAUSE 150 
4050 00 TO 4430 
4070 PRXNT F(; F, , At; Ci (Fi 
4060 PRXNT 6*;“ “íNiíFJ 
4090 PRXNT AT 10,6; T PULSE LA D P 
ARA CONFIRMAR O M PARA “ 

EL MENU . r 


UER 


4100 XNPUT Mi 

4110 IF MloV THEN 00 TO 4430 
4120 PRXNT AT 14,0;“TOOOS LOS N 


.. . . .. NU 

M. DE FICHERO >“;P,"SE REDUCIRAN 
EN UNA UNIDAD." 

4125 IF Fm TF TMEN 00 TO 4220 
4130 POR N*F TO TF-i 
4140 LET Ní (N) ■N|(N + 1) 

4150 LET CítN) «CiíN + D 

4160 FOR L»1 TO 10 

4170 LET P( (N , L> »P> (N + l, L) 

4130 LET T(N,L,1)-f(N+1,L,1J 
4190 LET T (N , L »2) *T (N + I, L, 2) 

4200 NEXT L 
4210 NEXT N 
4220 LET C*tTFi«EÍ 
4230 LET N|(TF)«E$ 

4240 FOR N-l TO 10 
4250 LET Pi (TF , N) *E( 

4260 LET TÍTFiN,1)«5 
4270 LET T(TF,N,2> «0 
4260 NEXT N 
4290 LET TF «TF-1 
4300 CLS 

4310 PRXNT “FICHERO BORRADO" 

4320 PAXNT " "NUEUO LISTADO:" 

4330 PRINT 

4340 FOR N«1 TO TF 


4350 PRINT Ftj NJ“ "jR|;C|(N) 

4360 NEXT N 

4370 PRINT AT 21,O;"COPIAR LISTA 
DO NUEUO (C) O UER EL MENU (Mi. 

rl 

4380 INPUT Mi 

4390 IF MI<)"C" THEN 00 TO 4430 
4400 PRINT AT 21,B;E* 

4410 COPY 
4420 CLS 
4430 RETURN 

4990 REM ********************** 
5000 REM **IMPRIMIR ETIQUETAS ** 
5010 REM ********************** 
5020 PRINT "QUE FICHERO QUIERE L 
ISTAR COMO ETIQUETA DE CINTA? ( 
1 AL 10)" 

5030 INPUT F 

5040 IF F >>1 AND F<*TF THEN 00 T 
O 5090 

5050 PRINT "*NQ EXISTE ESE FICHE 
RO*“ 

5060 PAUSE 150 

5070 CLS 

5060 00 TO 5260 

5090 PRINT ,i"EL FICHERO ";F;" S 
E LISTARA ."* " “COMPRUEBE LA IMPR 
E50RA Y PULSE UNA TECLA PARA EM 
PEZAR" 

5100 IF INKEY*."" THEN 00 TO 510 

5120 LPRINT X*;"jA*;C*(F)jTAB 
20,F*;F;TRB 31; "1" 

5130 LPRINT Zi;“|";B*;“ ";N*(F); 
X fifi 3 i J * I 11 

5140 LPRINT Z*; Xi; "| " j GiíTAB 20; 
“I "; H4;TAB 31; f ' l" 































































Mewu 

1. CREAR FICHERO 

8. UER/USTAft FICHERO 
3, COMPROBAR FICHERO 
4-. BORRAR FICHERO 

5. LISTAR ETIQUETAS DE CINTA 

6. GUARDAR FICHEROS 

7 . BORRAR TODOS LOS FICHEROS 
INTRODUZCA LA OPCION 


FICHERO: 1 

REF, CINTA: HIFI 

****** MHHHHtHtHHHHHH 

NOMBRE PRO®,: ^ESDE 00 * 1 

1. Cotntcoco» 0 6® 

2. Tht hobbit se 90 

3. flj«dr*I 90 100 

* >Gfl ficot 105 lie 

5. Elft«l ISO 160 

6. Es ir* t«go 160 170 

7. Gt LiXi * 3000 300 330 

3 . 0 0 

9 . 0 0 

10 . 0 0 


LISTAR(U/SIGUIENTE(S)/MENUÍM)7 


Comentarios 

No hace falta decir que es un 
programa un poco largo. Pero su 
buena estructuración lo hace espe¬ 
cialmente aconsejable para seguir 
de cerca los distintos algoritmos de 
que se componen sus principales 
módulos. El programa no es “a 
prueba de tontos”, pero verifica la 
mayor parte de las respuestas, pi¬ 
diendo la confirmación de las op¬ 
ciones que pueden suponer la pér¬ 


dida parcial o total de la informa¬ 
ción almacenada. 

El programa puede mejorarse 
considerablemente de dos formas. 
Mediante la incorporación de una 
rutina de búsqueda para encontrar 
el cassette donde se encuentra un 
programa determinado. La segun¬ 
da posibilidad de mejora se refiere 
a la posibilidad de imprimir la in¬ 
formación de varios cassettes de 
forma simultánea en la opción 4, 
ya que se vuelve al menú después 


de cada impresión de un cassette. 
Piense sobre los cambios a intro¬ 
ducir en las líneas 2190 a 2310. 

Si piensa que el programa no es 
demasiado útil, considere la origi¬ 
nal idea de utilizar el formato de 
impresión idéntico al cassette para 
ordenar sus programas, la posibili¬ 
dad de'aumentar la dimensión de 
las variables y, por supuesto, la 
modificación del programa para 
guardar otro tipo de información: 
libros, discos, etc. 


5150 LPRINT "|";TRB 20; "| » ; I« j Tfi 
B 31' " I*' 

5160 J LPRINT X* 

S170 FOR N-l TO 5 

5150 LPRINT ”1" ¿ N;" ";PÍ(F/N)jTR 
5 21j T (F , N , 1) ; TRB 25, T (P, N , 2) ; Tfi 
B 31; "J”; Z$ 

5190 NEXT N 
5200 LPRINT Y$;X( 

5210 LPRINT "i f *; R|; Ct (F) ;TAB 20; 
F|;P;TAB 31; "V 

5220 LPRINT Zí; "| "; BB; " ";N*íFl; 
TRB 31; " |" 

5230 LPRINT Y*;XÍ 

324-0 FOR N*7 TO 10 

5250 LPRINT "| , *;Nj" " i PÉ (F , N) ; TA 

B 21jTiF/N/1)JTRB 25 ¡ T(F/N,2)jTR 

B 31; " |" j Zí 

5260 NEXT N 

5270 LPRINT Y* 

5230 RETURN 

5990 REM ******************** 

6000 REM *#GURRDAR PICHEROS»* 

6001 REM ******************** 
5005 CLS 

6010 PRINT "RUT. DE ALMACENAMIEN 
TO EN CINTA " 

6020 PRINT //"EL NOMBRE DEL PROC 
RAMA ACTUAL ES 1 ’ 

6030 PRINT /,.; Si;. 

504.0 PRINT ¿."TECLEE EL NUEUO NO 
MBRE DEL PRO- BRAMA O PULSE ENTE 
R SI LO QUIEREGUARDAR CON EL NOM 
BRE ANTIGUO" 

5050 PRINT //"PULSE M PARA MENU" 
6060 INPUT MC 


6070 IP M$*"M" THEN RETURN 
6080 IP M**"" TMEN GO TO 9900 
5090 LET &«-(!> 

6100 GO TO 9900 

6990 REM ******************* 

7000 REM *«BORRAR PICHEROS** 

7005 REM ******************* 

7010 PRINT "TECLEE D PARA CONPIR 
MAR QUE DE- SER BORRAR TOOOS LOS 
PICHEROS" 

7020 PRINT //"PULE M PARA UOLUER 
AL MENU," 

7030 INPUT M* 

704.0 IP Mi < > "D" TMEN GO TO 7080 
7050 OLEAR 

7060 PRINT //"NOMBRE PflRfl ESTE P 
ICHERO" 

7070 INPUT S* 

7080 LET Xml 

7090 GO TO 350 

9690 REH ****************** 

9900 REM **RUTO-EJECUCION** 

9901 REM ****************** 

9910 CLS 

9920 PRINT "EL NOMBRE DEL PROGRR 
MA ES " 


II II ti M 


9930 PRINT . ;S*¿ 

994.0 PRINT "#*TOME NOTA** 

9950 PRINT ./"PREPARE EL CASSETT 
E PARA GRABAR Y PULSE CUALQUIER 
TECLA 11 

9960 XF INKEY(«"" THEN GO TO 996 

0 

9970 SAUE S$ 

9930 CLS 
9990 GO TO 200 
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EL VU-3D es un programa de 
diseño gráfico que nos permite de¬ 
finir objetos en tres dimensiones 
sacando una presentación por pan¬ 
talla o por impresora de una visión 
del objeto desde el punto de vista 
que queramos, permitiendo que el 
usuario se forme una idea general 
del objeto en tres dimensiones a 
base de rotarlo y moverlo. 

El programa necesita un Spec- 
trum de 48 KRAM, un cassette y 
una televisión. Si se tiene una im¬ 
presora se pueden sacar copias im¬ 
presas de los dibujos para mayor 
gloria del creador. 

La carga del programa se realiza 
con dificultad usando las instruc¬ 
ciones LOAD que son habitua¬ 
les en la mayoría de los programas 
comerciales. Una vez cargado se 
nos pregunta si queremos cargar 
un fichero de cinta o si vamos a 
leer un dibujo anteriormente crea¬ 
do y que hayamos tenido la pre¬ 
caución de salvar con anteriori¬ 
dad. 

Después de cargar el fichero (si 
cargamos alguno) nos aparece un 
menú con siete opciones, la opción 
4, crear figura es la que hace falta 
para crear un objeto y si no carga¬ 
mos ningún dibujo de cinta al 
principio el programa no va al 
menú principal, sino que se pasa 
directamente al modo de creación 
de objetos. En esta rutina debemos 
crear el objeto que posteriormente 
se representará en perspectiva. 


En los últimos meses, el mercado inglés ha 
lanzado una considerable cantidad de 
software para aumentar —y en el mayor de 
los casos facilitar — las posibilidades 
gráficas del Spectrum. El VU-3D fue uno 
de los primeros , nacido de ¡a célebre casa 
Psion, y uno de los más conocidos en 
España, objeto de estudio de este artículo. 


El modo en que definimos un 
objeto no está extenso de compleji¬ 
dad y se necesita una buena visión 
espacial (imaginación en tres di¬ 
mensiones) para poder crear el di¬ 
bujo que deseamos. En la parte su¬ 
perior de la pantalla nos aparecen 
una serie de comandos, mientras el 
centro se deja para el dibujo de las 
distintas partes que componen el 
objeto. Antes de empezar la defini¬ 
ción del dibujo debemos dividir 
nuestro objeto en componentes 
sencillos. Cada uno de éstos debe 
ser una figura geométrica sencilla 
y sin curvas (cubos, pirámides de 
tres o más lados, etc.) y entre todos 
deben formar el objeto. El modo 
de funcionamiento es similar a un 
juego de construcción de madera 










compuesto por las piezas geomé¬ 
tricas fundamentales. Para cons¬ 
truir un edificio debemos apiiar las 
piezas de un modo lógico. En este 
programa el funcionamiento es si¬ 
milar pudiéndonos definir las pie¬ 
zas de la forma que queramos 
(pero dentro de unos límites) y las 
vamos apilando según las defini¬ 
mos. 

La pantalla está dividida en dos 
ejes X e Y (ancho y largo) y un ter¬ 
cer eje Z destinado a ia altura se 
muestra en sucesivos cortes se- 
cuenciales, siendo el primero el 0 


(altura del suelo) ascendiendo pro¬ 
gresivamente hasta la parte supe¬ 
rior del objeto. Por tanto nuestro 
punto de vista es como si estuvié¬ 
semos mirando desde el cielo hacia 
abajo. 

Los comandos disponibles son: 
Open, Cióse, Figure. Quif. Next /.. 
Reduce y las flechas de movimien¬ 
to del cursor. 

El comando Next Z nos permite 
desplazarnos por las distintas altu¬ 
ras del dibujo, el 0 es el suelo, el 1 
es un punto más arriba, el 10 son 
diez puntos más, ele. Hay que te¬ 


ner en cuenta que una vez que se 
sube, no se puede bajar. Por lo que 
debemos tener cuidado al dibujar 
para no olvidarnos nada, lo que 
obligaría a repetirlo todo. 

Open nos permite definir la par¬ 
te inferior de la figura en el plano z 
en que nos encontremos en este 
momento. Todas las figuras que 
dibujemos aquí deben ser cerradas 
y si no las cerramos nosotros, las 
cerrará el programa al salimos de 
la opción. Para dibujar una figura 
nos colocamos en el punto en que 
queramos empezar a dibujar, pul- 



Como profesional del mundo 
de la imagen, poco 
imaginaba José Carlos 
Tomás cuando compró el 
Spectrum que aquel pequeño 
ordenador llegaría a 
convertirse en una 
herramienta más en su 
cotidiano trabajo. Gracias al 
programa VV-SD 
descubriría cómo potenciar 
el dibujo animado. Así nos lo 
decía desde su rincón de 




















T 




sainos “S” y nos desplazamos has¬ 
ta otro punto que esté unido con el 
anterior pulsando “L” a continua¬ 
ción, con lo que el programa nos 
unirá los dos con una recta. A con¬ 
tinuación nos vamos a un tercero y 
volvemos a pulsar “L” para unirlo 
con el segundo y así sucesivamen¬ 
te, Cuando hayamos definido to¬ 
dos los puntos pulsamos “E” con 
lo que la figura se cierra uniendo el 
último punto definido con el pri¬ 
mero y volvemos al menú de 
" CREATE " en el que podremos 
pasar a definir otra figura. Mien¬ 
tras estamos dibujando podemos 
pulsar la tecla “D” que nos borra 
ia última figura definida (o en caso 
de que no hubiese ninguna defini¬ 
da nos volvería a CREATE, Una 
vez que hayamos definido todas las 
figuras de un plano z nos iremos 
desplazando por medio de la N 
hasta el plano donde se acaba cada 
figura (no es posible hacer que 
crezcan hasta el infinito) y aquí 
una vez seleccionada la figura con 
el comando “Figure” (que vere¬ 
mos a continuación) elegimos la 
opción Cióse que la cierra defi¬ 
niendo ese límite como el superior, 
al cerrar el programa nos pregun¬ 


tará si queremos que el borde su¬ 
perior sea abierto o cerrado (que 
deje pasar o no la luz). Para definir 
un dado que mida 20 puntos de 
cada lado deberemos, por tanto, 
colocarnos en el plano z = 0. abrir 
(con Open) la figura y dibujar la 
base usando las flechas y “S’\ “L’\ 
“D”, una vez hecho esto damos 
una “E” para volverá “ CREATE " 
y desde allí, pulsando veinte veces 
la N nos vamos al plano z = 20. 
Allí seleccionamos la opción Cióse 
y cerramos la figura, haciendo que 
tenga la misma forma en la parte 
superior que en la inferior. Si nece¬ 
sitamos crear varias figuras a la 
misma altura (las patas de una si¬ 
lla, por ejemplo) deberemos abrir 


una vez por cada una de ellas, di¬ 
bujarla, salir usanuo “E” y abrir 
otra con la que se realiza el mismo 
proceso. 

El comando Figure es útil cuan¬ 
do nos hemos abierto varios dibu¬ 
jos distintos y no los hemos cerra¬ 
do después (cuando creamos las 
cuatro patas de la silla) pulsando la 
tecla “F” nos va cambiando la fi¬ 
gura seleccionada, esa es la que ce¬ 
rramos a! elegir el comando Clase 
o la que podemos modificar con 
otros comandos, si sólo tenemos 
una figura abierta a la vez este co¬ 
mando no hace nada. La figura se¬ 
leccionada se muestra dibujándola 
a trazos, mientras las demás lo son 
con líneas continuas. 



El dibujo animado es, sin duda 
alguna, una de las facetas que el 
cine utiliza para crear historias y 
personajes fantásticos que de otro 
modo seria impensable. 

Básicamente la animación es 
muy simple. Sólo es cuestión de 
filmar con una cámara imagen por 
imagen una serie de dibujos entre 
los cuales hay ligeras diferencias. 
Si nos metemos de lleno en la téc¬ 
nica del dibujo animado veremos 
que es un poco más complicado 
pero el principio es el mismo. 
Todo depende del tipo de dibujo o 
de los objetos que queramos darle 
vida con nuestra cámara, 


El año pasado tuve que hacer 
una película de presentación para 
unas proyecciones de cine amateur 
y se me ocurrió utilizar mi Spec- 
trum para darle un toque de origi¬ 
nalidad. Puesto que el VU-3D te 
permite mover figuras tridimen¬ 
sionales creadas por ti pensé rápi¬ 
damente en utilizarlo para hacer 
parte de la película. Los resultados 
fueron cortos en cuanto a duración 
pero muy satisfactorios por la cali¬ 
dad obtenida. 

Lo primero que hice fue dibujar 
en un papel, a grandes rasgos, la fi¬ 
gura que quería que apareciese en 
pantalla. Era conveniente tener 


una idea previa antes de ponerme 
en el asunto. Una vez satisfecho 
con el resultado cargué el VU-3D 
y pulsé la opción “crear una figu¬ 
ra”. Aparecieron en la pantalla tos 
ejes de coordenadas X e Y y los co¬ 
mandos que podía utilizar. Pulsé 
OPEN (Abrir) y el cursor hizo acto 
de presencia, al tiempo que cam¬ 
biaban los comandos a utilizar. 
Puse el cursor en la parte inferior 
izquierda y comenzé a dibujar la 
figura como si la viera desde arri¬ 
ba. Más adelante le daría profundi¬ 
dad una vez centrada en ia panta¬ 
lla. 

Tomé, no obstante, nota de to¬ 
das y cada una de las coordenadas 
para poder repetirla en caso de sa- 
lirmemal. 
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Los comandos Magnify y Redu¬ 
ce se usan junto con la figura selec¬ 
cionada con Figure y nos aumen¬ 
tan o disminuyen el tamaño de la 
parte superior del dibujo en cues¬ 
tión. Como la base permanece del 
tamaño que previamente le hemos 
definido, si reducimos el tamaño 
de la parte superior fReducej nos 
quedará una figura con forma de 
pirámide, en cambio si magnifica¬ 
mos nos quedará una pirámide in¬ 
vertida (similar a la parte superior 
de una copa). Al cerrar la figura, el 
programa une con líneas rectas las 
partes superior e inferior corres¬ 
pondientes. De modo que si quere¬ 
mos crear un lápiz deberemos ha¬ 
cer el cuerpo con un figura en la 
que la parte inferior y la superior 
tengan ei mismo tamaño y, a con¬ 
tinuación añadirle en la parte su¬ 
perior otra figura con la base del 
mismo tamaño pero la parte supe¬ 
rior Reducida hasta hacer punta 
(Fig, 1). Además, desde el CREA¬ 
TE podemos mover la parte supe¬ 
rior con las flechas, de modo que 
no se encuentre centrada respecto 
a la parte inferior, sino desplazada 
a un lado con lo que se pueden ob¬ 
tener efectos interesantes (el res¬ 
paldo de nuestra silla, por ejem¬ 
plo, se puede inclinar para que no 
esté recto, sino que la parte supe¬ 
rior esté más para atrás que la infe¬ 
rior). 
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Una vez definido todo el objeto 
a representar debemos salir del 
menú CREATE haciendo uso de 
la opción QUIT (una Q) que nos 
conducirá al menú principal, en el 
que aparecen otras opciones ade¬ 
más de la que acabamos de dejar 
(crear figura). 

La primera opción de este menú 
es la de modificar una figura. Con 
ella podemos variar el tamaño y la 
posición en el plano de las distin¬ 
tas figuras, pero no su posición en 
el eje z, ni tampoco podemos qui¬ 
tar o añadir figuras. Podemos, por 
ejemplo, mover un dibujo de la 
parte inferior de la pantalla a la su¬ 
perior. pero no podemos hacer que 
empiece a una “altura” de 20 en 


vez de 10. El procedimiento para 
hacer esto es similar al utilizado 
durante la definición, por lo que 
no debe plantear ningún proble¬ 
ma. 

La opción de abandonar, no bo¬ 
rra el programa como en un prin¬ 
cipio se puede pensar, sino que bo¬ 
rra el dibujo existente en memoria 
y prepara el programa para la in¬ 
troducción de otro nuevo. 

Otras dos opciones permiten 
leer y escribir en cinta un fichero 
de datos, esta opción no graba la 
pantalla para poder leerla poste¬ 
riormente por este o por otro pro¬ 
grama con una instrucción LOAD 
““ SCREEN$, sino que graba un 
conjunto de números que identift- 


L’na vez terminada la fase crea¬ 
tiva pulsé QUIT y volví al menú 
principal donde tecleé la opción 
display. Automáticamente salió en 
pantalla mi figura en tres dimen¬ 
siones. Me acerqué a ella y la hice 
girar en todas las direcciones para 
asegurarme de su perfecto estado. 
Llegado este punto volví al menú y 
grabé en cinta los datos de la figura 
para una posterior utilización. 

Al día siguiente me dispuse para 
la dura tarea de filmar. Previamen¬ 
te ya tenía una ligera idea de las 
evoluciones que mi diseño tenía 
que hacer en pantalla, por lo que 
fui directo al grano. 

Coloqué la cámara trente al tele¬ 
visor y lo primero que hice fue 


^wmmmmmm 

ajustar el diafragma. Para ello era 
necesario encender el televisor y 
procurar que ninguna otra luz in¬ 
terfiriera. Quité la antena y au¬ 
menté el brillo y el contraste casi 


“Con el VTJ-3D es fácil ha¬ 
cerse un taller de animación por 
ordenadores." 


hasta e! máximo. Medí la luz con 
un fotómetro y ajuste manualmen¬ 
te el diafragma, el cual no tocaría 
hasta terminar el trabajo. Hecho 
esto conecté el Spectrum y cargué 
el VU-3D. Después cargué los da¬ 


tos de la figura, almacenados el día 
anterior, y pulsé display. Eliminé 
de pantalla el cuadro de mandos de 
la parte de arriba poniendo el PA¬ 
PER y la TINTA de igual color 
para que no me estorbaran. Au¬ 
menté el dibujo hasta que ocupó 
toda la pantalla y entonces centré 
y enfoqué la cámara. Esta tenia 
que quedar perfectamente a la al¬ 
tura del televisor y perpendicular 
al tubo. El enfoque lo hice ponien¬ 
do el ~oom en posición de tele y 
luego retrocediendo hasta el limite 
del recuadro central. 

Una vez todo dispuesto y tenien¬ 
do la precaución de cerrar la puer¬ 
ta de la habitación para que nadie 
me molestara, situé la figura en la 
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can los vértices de nuestra Figura, 
de modo que podamos seguir tra¬ 
bajando posteriormente con ellos. 
Este Fichero sólo puede ser leído 
por este programa. 

La rutina denominada pantalla 
o displav es la destinada a la repre¬ 
sentación, en tres dimensiones, del 
objeto. Una vez que entramos en 
ella, se borra la pantalla y aparece 
en la parte superior una lista (de¬ 
nominada DISPLA Y) de todos los 
comandos disponibles a este nivel. 
Asimismo en la parte inferior apa¬ 
rece otra línea en la que se indican 
los siguientes datos: el grado de 
magnificación de la figura (si hace¬ 
mos zoom), la rotación que le he¬ 
mos dado a la figura (el ángulo des¬ 
de el que la contemplamos) y el 
desplazamiento respecto al eje z. 
Aunque puede parecer que el 
zoom y el desplazamiento del eje z 
son similares, existen pequeñas di¬ 
ferencias a la hora de manejar la fi¬ 
gura. Si acercamos demasiado el 
eje z. partes de la figura se defor¬ 
man (puesto que se salen del, teóri¬ 
co, plano de la pantalla), en cam¬ 
bio moviendo el zoom consegui¬ 
mos mayor acercamiento sin de- 
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ormar la imagen, asimismo cam¬ 
bia (aunque sólo ligeramente) la 
perspectiva del objeto. Mientras el 
zoom no modifica las proporcio¬ 
nes, sino que sólo amplía el tama¬ 
ño, El desplazamiento del eje z, 
proporciona una mayor sensación 
de profundidad. En ía figura 2 se 
ha acercado el objeto lo más posi¬ 
ble acercando el eje z, mientras 
que en la figura 3 nos hemos aleja¬ 
do del objeto (aunque conservando 
el mismo punto de vista) y hemos 
utilizado el zoom para acercarlo. 
En esta última foto se nota una fal¬ 
ta de perspectiva que hace que la 
imagen carezca de cuerpo. 

Los comandos disponibles a este 
nivel son: Magnify, que nos acerca 
el objeto haciendo uso del zoom 


comentado anteriormente. Reduce 
efectúa la maniobra contraria del 
Magnify, es decir, aleja el objeto 
pero no modifica la perspectiva. 
Near nos desplaza el objeto mo¬ 
viéndonos por el eje z. De este 
modo aumenta su tamaño y se crea 
una mejor sensación de perspecti¬ 
va, pero, atención, si nos acerca¬ 
mos demasiado algunas partes del 
objeto pasarán del plano de la pan¬ 
talla y el programa las cortará. El 
comando Far nos aleja del objeto 
deshaciendo el camino hecho con 
el Near. El comando Quit nos de¬ 
vuelve al menú principal y por úl¬ 
timo Picture nos pasa a un subme¬ 
nú donde nos encontramos otras 
siete opciones: Quit nos devuelve 
al menú anterior. Shade sombrea 



fase inicial. Hice unas cuantas pul¬ 
saciones con mi disparador de ca¬ 
ble para que la figura no se movie¬ 
ra al principio de la película. Des¬ 
pués todo el proceso iba a ser repe¬ 
titivo: filmaba otras dos imágenes 
y movía la figura una posición 
para volver a filmar otras dos imá¬ 
genes. La línea inferior me daba 
cuenta del ángulo de rotación, así 
como de la proximidad de la figu¬ 
ra, lo cual me era muy útil a la 
hora de hacer ensayos de movi¬ 
miento durante la marcha, ya que 
anotaba las últimas posiciones 
para después poder regresar a ellas. 

Otro truco que utilicé fue de eí 


cambiar colores de papel y tinta 
para dar la impresión de un flash. 
El programa me permitía hacerlo 
con toda comodidad. 

Después de toda una tarde de 
pulsar teclas y con los ojos en for¬ 
ma rectangular recogí cuidadosa¬ 
mente todos los trastos. Ai día si¬ 
guiente llevé la película al labora¬ 
torio. El trabajo había concluido. 

V a sea con el VU-3 D o con otro 
tipo de programa de gráficos, he 
podido comprobar lo fácil que es 
hacerse un taller de animación por 
ordenador, en donde éste nos evi¬ 
ta el tener que dibujar y utilizar ta¬ 
bleros especiales y otros equipos 


auxiliares que esta técnica requie¬ 
re. Sin llegar, ni mucho menos, a la 
perfección de los dibujos de orde¬ 
nador profesionales, sí que pode¬ 
mos aventuramos, conociendo 
siempre nuestros límites, en el ma¬ 
ravilloso mundo de la animación. 

Hace algunos años se estrenaba 
en las pantallas de nuestro país la 
película “TRON”, Su historia era 
una de tantas, sin embargo la for¬ 
ma y concepción de la imagen era 
completamente distinta a otra 
idéntica en su género. La utiliza¬ 
ción de gráficos diseñados por 
computadora ocupaban gran parte 
de ¡a historia, Eran por sí mismos 
protagonistas. 

¿Se podrían hacer cosas pareci¬ 
das con nuestro Spectrum?. Sí se 










el objeto dependiendo de la posi¬ 
ción de un foco teórico que puede 
estar colocado en nueve posiciones 
posibles dependiendo de su altura 
y si está hacia la izquierda, la dere¬ 
cha o en el centro, el dibujo adop¬ 
ta, a veces, resultados espectacula¬ 
res, aunque la mayoría de las veces 
no salga tan bonito como se espera 
(Fig. 4). La opción Hidden borra 
todas las líneas que no se ven si las 
superficies se consideran opacas (y 
no de cristal como hasta ahora) 
pero no sombréa (Fig. 5). Print nos 
permite sacar una copia en papel 
impreso del dibujo (si disponemos 
de una impresora con capacidad 
gráfica). Keep permite salvar el 
gráfico en cinta de modo que pue¬ 
da ser leído con la instrucción 
LOAD ““ SCREENS, ya que hace 
un volcado de la pantalla por im¬ 
presora. Por último la opción Co- 
lour nos permite modificar los co¬ 
lores del borde, del papel del dibu¬ 
jo y de la zona de órdenes (inde¬ 
pendientemente) y de la tinta de 
estos dos (también independiente¬ 
mente), aunque en el programa 
que vimos no funcionaba correcta¬ 
mente (sólo cambia el color del 
border) y tuvimos que recurrir a 
una opción similar disponible en 
el menú principal que sí funciona¬ 
ba correctamente. Uno de los usos 
más interesantes que se puede dar 
a la opción de los colores del panel 


de mandos es hacer que e! color de 
la tinta y del papel sean similares 
al papel del dibujo, de modo que al 
salvarlo (o imprimirlo) no salgan 
las letras, sino el dibujo solamente 
(Fig. ó). 

Cuando estamos en la opción 
DISPLAY (y siempre que no se¬ 
leccionemos PICTURE) podemos 
girar la figura respecto al eje verti¬ 
cal y al horizontal de modo que 
podamos ver todas las partes del 
dibujo, para realizar esto se utili¬ 
zan las flechas del cursor (sin nece¬ 
sidad de usar CAPS SHIFT, que en 
este programa se utiliza para ami¬ 
norar el movimiento de las figu¬ 
ras). 

E! programa está bien desarro¬ 
llado dando un resultado bueno 


con las representaciones aunque 
tarde demasiado en moverse, asi¬ 
mismo resulta un poco incómodo 
de manejo e! sistema usado para 
introducir ios dibujos ya que resul¬ 
ta poco claro de compresión y rígi¬ 
do de manejo (una ampliación de 
esta parte del programa podría 
consistir en !a posibilidad de retro¬ 
ceder en el eje z y poder borrar 
partes del objeto que ya estén defi¬ 
nidas, ya que actualmente sólo se 
pueden borrar cuando no se ha ter¬ 
minado de dibujar la parte infe¬ 
rior). 

El programa resulta útil para 
aquellas personas que deseen reali¬ 
zar representaciones de objetos tri¬ 
dimensionales a partir de planos y 
esquemas. 


puede, teniendo, claro está, tres 
cosas: una cámara cinematográfi¬ 
ca {Super 8, por ejemplo), el Spec- 
trum y un programa llamado 
VU-3D. 

En rasgos generales dicho pro¬ 
grama consiste en la creación de fi¬ 
guras tridimensionales de las cua¬ 
les. gracias a una serie de coman¬ 
dos, se pueden girar en todas direc¬ 
ciones así como alejarnos o acer¬ 
carlas a nosotros. También la figu¬ 
ra creada por nosotros puede ser 
modificada lo que constituye otro 
efecto más a utilizar. 

Personalmente mi hobby prefe¬ 
rido, aparte del Spectrum, es el 


cine en su más amplio sentido. El 
año pasado me encargaron una pe¬ 
lícula para la presentación de unas 
proyecciones de cine amateur. Me 


“Entre desplazamientos es 
algo lento, pero las posibilida¬ 
des son enormes." 


vino como caído del cielo el 
VU-3D para mis propósitos. Colo¬ 
qué la cámara delante del televi¬ 
sor, conecté el Spectrum, cargué el 
programa y después de crear una 


figura me dediqué a filmar foto a 
foto cada evolución en pantalla. 

Los resultados fuero buenos 
aunque su duración total no pasara 
de los 45 segundos a pesar de estar 
todas una tarde trabajando. Tengo 
que hacer notar que entre despla¬ 
zamientos el programa resulta algo 
lento y más si se quiere rellenar o 
sombrear la figura. De todas for¬ 
mas las posibilidades dentro de 
este aspecto son bastantes y tan 
sólo limitadas por la creatividad de 
cada cual. 

Lo que parecía un programa de 
“inutilidad’' se convierte de esta 
forma en algo vivo e inédito y de 
largas horas de entretenimiento. 













A ntes de empezar a comen¬ 
tar la imp (ementadón del 
FORTH realizada en el 
■ ■«a Spectrum, conviene expli¬ 
car los fundamentos de 
este lenguaje. 

El FORTH es un lenguaje 
creado para ser rápido y que pue¬ 
da ser implementado en máqui¬ 
nas pequeñas. Su estructura se 
halla a medio camino entre el có¬ 
digo máquina y los lenguajes de 
alto nivel, básicamente sólo ma¬ 
neja números enteros como el có¬ 
digo máquina, aunque llega hasta 
valores de 520090719, lo cual es 
realmente elevado, y también 
maneja tiras de caracteres y reali¬ 
za otros procesos sólo existentes 
en lenguajes de alto nivel. 

Su funcionamiento es una mez¬ 
cla de compilador e intérprete y 
funciona basado en una pila 
(stack) de tipo LIFO, es decir, tie¬ 
ne una zona de memoria donde 
se almacenan los datos secuen- 
cialmente, siendo el último dato 
escrito el primero en ser usado. 
Esta zona de memoria la amplía 
según lo necesite. El FORTH no 
se programa como entendemos 
habitualmente, lo que se hace es 
definir nuevas “palabras” y “dic¬ 
cionarios” que permiten ejecutar 
las funciones que uno desea. 

La versión de FORTH del 
Spectrum está diseñada para el 
aprendizaje ya que tiene dos ca¬ 
racterísticas no standard. La pri¬ 
mera es que está continuamente 
comprobando si se le pulsa el 
BREAK; esta característica, aun¬ 
que normal en el BASIC, no es 
normal en el FORTH; que es un 
lenguaje pensado para la rapidez 
y esta comprobación le hace per¬ 
der tiempo, aunque al usuario 
novato le permita equivocarse sin 
obtener resultados catastróficos. 
La segunda característica es la 
existencia de una serie de pala¬ 
bras que permiten comprobar el 
estado del sistema desde dentro 
de una “palabra” que se esté eje¬ 
cutando. 

Para cargar el programa se si¬ 
gue el procedimiento habitual de 
LOAD” “CODE y una vez carga¬ 
do se ejecuta automáticamente. 
En la cinta viene, además, un 
editor de FORTH escrito en 


FORTH, que se carga desde den¬ 
tro del programa usando las pala¬ 
bras 1 LOAD, (debemos indicar 
que en el manual hay muchas pa¬ 
labras que vienen unidas; en este 
caso aparece 1LOAD siendo in¬ 
correcto ya que el intérprete no 
lo comprende y dará error). 

Una vez puestos a trabajar en 
FORTH y con el editor cargado 
ya estamos preparados para escri¬ 
bir nuestra primera palabra: 

Tecleamos: 

: PRUEBA 999 0 DO I. LOOP ; 

Si ahora pulsamos ENTER y 
tecleamos PRUEBA (ENTER) 
veremos imprimirse en la panta¬ 
lla los números del 0 al 998 uno 
a continuación de otro y separa¬ 
dos por un espacio. Cada vez que 


usemos la palabra PRUEBA en 
una definición o bien usada di¬ 
rectamente se compilará o ejecu¬ 
tará respectivamente el bloque 
que acabamos de definir. Estos 
bloques no tienen porqué ocupar 
una sola línea, es más, este len¬ 
guaje tiene estructura líbre y por 
tanto podríamos haber escrito 
una palabra en cada línea. Si no 
quisiéramos usar esta “palabra” 
nunca más y queremos que nos 
deje libre su espacio de memoria, 
bastará decir “FORGET PRUE¬ 
BA” seguido de ENTER, lo que 
le hará olvidar, no sólo la palabra 
prueba sino todas aquellas pala¬ 
bras definidas posteriormente en 
el mismo diccionario, así que ten¬ 
ga cuidado con lo que olvida. 

Un diccionario es una lista de 







palabras donde el FORTH busca 
el significado de las órdenes que 
se le dan. El sistema nos permite 
tener varios diccionarios distintos 
a la vez. La razón de que se pue¬ 
dan usar varios o no uno solo 
donde englobemos a todas las pa¬ 
labras es que así disponemos de 
la posibilidad de tener bloques 
independientes (editor, ensambla¬ 
dor, números reales, etc) que pue¬ 
den ser olvidados cuando no los 
necesitemos y queramos aprove¬ 
char su espacio. También nos 
permite disponer de palabras dis¬ 
tintas pero con el mismo nombre 
(una en cada diccionario); por 
ejemplo el diccionario FORTH 
tiene la palabra “1” que lo que 
hace es poner en la pila la varia¬ 
ble de un lazo, mientras que el 


diccionario EDITOR tiene la pa¬ 
labra “l” que lo que hace es in¬ 
sertar textos. Para usar un diccio¬ 
nario u otro debemos escribir el 
nombre del diccionario que que¬ 
remos usar seguido de la tecla 
ENTER, el sistema nos hará 
abandonar el diccionario en que 
estemos ahora y entrar en el otro, 
a partir de ese momento sólo nos 
recomendará las palabras del 
nuevo diccionario. 

Para saber las palabras que te¬ 
nemos en el diccionario en el que 
nos hallamos, nos basta con te¬ 
clear “VLIST” lo que hará que 
aparezca una lista de todas las 
palabras en orden inverso al de 
introducción. Este listado puede 
ser parado pulsando BREAR. 

Para definir una palabra de la 
que sepamos que es correcta em¬ 
pleamos el siguiente sistema: pri¬ 
mero debemos teclear esto in¬ 
dica al intérprete que se va a defi¬ 
nir una palabra. A continuación 
se escribirá el nombre de la pala¬ 
bra (máximo de 31 caracteres) se¬ 
guido de un espacio. Las siguien¬ 
tes palabras que se escriban ya 
será la secuencia de órdenes a 
ejecutar cuando sea llamada esa 
palabra. Al acabar la definición 
debemos poner un punto y coma 
para indicar que la definición está 
completa y devolver el control al 
intérprete. Recordamos aquí que 
las palabras FORTH deben estar 
separadas por espacios para su 
correcta interpretación por el sis¬ 
tema. 

Este lenguaje trabaja con cinco 
tipos de datos: 

• CARACTERES Y BYTES: 
Ocupan 8 bits (l byte). 

• NUMEROS CON SIGNO: 
Ocupan 16 bits y sus valores se ha¬ 
llan comprendidos entre -32767 y 
+32767. 

• NUMEROS CON SIGNO: 


Ocupan también 16 bits, pero va¬ 
rían entre 0 y 65535. 

• NUMEROS DOBLES CON 
SIGNO: Ocupan 32 bits y están 
comprendidos entre -2147483647 
y+2147483647. 

• NUMEROS DOBLES SIN 
SIGNO: Así mismo ocupan 32 bits 
y varían entre 0 y 4294967296. 

En FORTH no hace falta definir 
explícitamente el tipo de dato que 
se va a usar, ya que la palabra im¬ 
pone el tipo de operando a usar, 
llegando incluso a usar cada una 
de las mitades de un número doble 
como número simple si así se lo 
pedimos. 

Las palabras básicas del 
FORTH se pueden dividir en blo¬ 
ques: Las de manejo de stack, arit¬ 
méticas, comparación, manejo de 
memoria y las de control, aparte 
de otras que no están definidas en 
ningún grupo. 

Las palabras de manejo de stack 
están pensadas para alterar el or¬ 
den lógico del stack o duplicar los 
datos. La forma en que un número 
se mete en el stack depende de su 
tipo, para meter un número simple 
(de uno o dos bytes, con 0 sin sig¬ 
no) basta con escribirlo entre dos 
espacios, tos dobles (de 32 bits, con 
o sin signo) son introducidos con el 
mismo procedimiento, pero aña¬ 
diéndole un punto en cualquier 
parte del número, hay que aclarar 
que este punto no tienen ningún 
significado matemático y que el 
FORTH considera el número en¬ 
tero como si no hubiésemos puesto 
el punto. Los números introduci¬ 
dos pueden ser manejados median¬ 
te “palabras” previstas a tal efecto, 
las más importantes son: (verfigu¬ 
ra 1) 

DUP: copia el número que se 
halla en la parte inferior de la pila 
colocándolo detrás de sí mismo. 

ROT: gira los tres últimos nú¬ 
meros del stack. 

-DUP: ejecuta la misma acción 
que DUP, excepto cuando el nú¬ 
mero sea cero en cuyo caso no 
hace nada. 

.: el punto imprime el último 
número del stack y lo borra de 
éste. 

SWAP: intercambia entre sí los 
dos últimos números del stack. 

OVER: copia el penúltimo nú¬ 
mero en el final del stack. 









Llegó el FORTH 


Los operadores aritméticos, 
como su nombre indica, realizan 
operaciones aritméticas con uno o 
dos números, borrando ¡os opera¬ 
dores y escribiendo el resultado en 
su lugar. (Verfigura 2). 

+: suma los dos últimos números 
en el stack. 

resta el último número al pe¬ 
núltimo. 

*: multiplica los dos últimos nú¬ 
meros en el stack (¿qué se pensa¬ 
ba?). 

/: realiza la división del penúlti¬ 
mo número partido por el último. 

MOD: deja el resto de la divi¬ 
sión. 

/MOD: deja el resto y el cocien¬ 
te de la división. 

ABS: deja el valor absoluto (po¬ 
sitivo) del último número del 
stack, 

AND: realiza un Y lógico entre 
los bits de los dos últimos números 
del stack. Es decir, coge parejas de 
bits (uno de cada número) y si am¬ 
bos son 1 el resultado es!, en cual¬ 
quier otro caso el resultado es cero. 

OR: realiza un proceso similar 
al AND, pero en vez de hacer un Y 


lógico, realiza un 0: si ambos bits 
son 0, el resultado es cero, en cual¬ 
quier otro caso el resultado es 1. 

XOR: similar a las dos anterio¬ 
res, pe j el resultado es 1, sólo si 
los dos oits son distintos (uno vale 
l y el otru 0). 

Para comprender mejor estas 
tres últimas operaciones se han di¬ 
bujado en la figura 3 tas tablas de 
verdad de estas operaciones, donde 
se pone el valor de ¡os bits de en¬ 
trada y el de salida. 

Los operadores de comparación 
actúan sobre dos números reali¬ 
zando un proceso de evaluación 
matemática, es decir, miran si es 
menor, mayor, igual, etc., desde un 
punto de vista matemático y no ló¬ 
gico como son las tres operaciones 
anteriores. 

<: compara el último número 
con el penúltimo, borrándolos del 
stack y dejando 0 si el último no es 
menor y cualquier otro número en 
caso contrario. 

>: su funcionamiento es similar 
al anterior, pero ahora comprueba 
si el último es mayor que el penúl¬ 
timo. 


=: comprueba, de un modo simi¬ 
lar a las dos palabras anteriores, si 
los dos últimos números del stack 
son iguales. 

0<: compara el último número 
del stack con 0, dejando l si, efec¬ 
tivamente es menor que 0, y cual¬ 
quier otro número en caso contra¬ 
rio. Su funcionamiento es equiva¬ 
lente a escribir “O < ”. 

&=: deja 0 si el último número es 
distinto de 0, y viceversa. Es equi¬ 
valente a escribir “0 =”. 

Hay que hacer notar que en 
FORTH, al 0 nacido de una com¬ 
paración se le puede llamar “ban¬ 
dera falsa” o, abreviadamente, 
“ff”, y cualquier 0 puede funcio¬ 
nar como ”ir\ Los números dis¬ 
tintos de cero son llamados “ban¬ 
dera verdadera” ("tf”). Más ade¬ 
lante veremos la utilidad de estas 
bandera». 

Para manejar la memoria (usan¬ 
do como intermediario el stack, 
como va siendo habitual) se usan 
las siguientes palabras: 

coge el último número del 
stack, lo interpreta como una di¬ 
rección, y mete en el stack e! nú¬ 
mero de 16 bits contenido en dicha 
dirección. 

!: toma el penúltimo número del 
stack y lo almacena en el lugar de 
memoria apuntado por el último. 


Figura !. Palabras de maneja del stack. 
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Figura 2. Operadores aritméticos. 
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C@: Su función es similar a la 
que realiza la @, pero con la varia¬ 
ción de que el número leído es de 8 
bits y no 16. 

C!: almacena en la dirección de 
memoria indicada por el último 
número el byte inferior del penúl¬ 
timo número del stack. 

+!: esta curiosa instrucción coge 
el número almacenado en la me¬ 
moria indicada por el último nú¬ 
mero del stack. le suma el penúlti¬ 
mo y almacena el resultado en la 
misma dirección. Hay que indicar 
que las operaciones intermedias no 
modifican el stack, aunque, natu¬ 
ralmente los dos números usados 
para la operación son borrados. 

El último grupo de instrucciones 
del FORTH lo forman las de con¬ 
trol, estas “palabras” forman, qui¬ 
zás, la parte más importante del 
FORTH ya que nos permiten to¬ 
mar decisiones y obrar en conse¬ 
cuencia al resultado. Su uso se res¬ 
tringe a la definición de palabras, 
no pudiendo usarse directamente 
ya que dan error, por ejemplo: 

: CUENTAMIL 1001 1 DO 

LOOP: 

es legal, ya que estamos definiendo 
una palabra que será llamada pos¬ 
teriormente. En cambio: 

1001 1 DO LOOP 


daría el error: “DO? ERR 
MSG#17” ya que le estamos pi¬ 
diendo que la ejecute de modo di¬ 
recto. En este punto cabe destacar 
que el BASIC del Speclrum sí nos 
permite ejecutar una instrucción 
similar: 

FOR 1= I TO 1000: NEXT I 
sin dar error. 

Las estructuras de control del 
FORTH son las siguientes: 

DO LOOP: se escribe con el for¬ 
mato: 

(valor final +1) (valor inicial) DO 
(secuencia a ejecutar) LOOP 

Realiza la secuencia tantas veces 
como indique la diferencia entre el 
valor final y el valor inicial, cada 
vez que pasa por el bucle incre¬ 
menta el valor inicial en una uni¬ 
dad. La secuencia se ejecuta una 
vez al menos (incluso en el caso de 
que el valor final sea menor que el 
inicial). 

DO +LOOP: es de funciona¬ 
miento similar al anterior con la 
diferencia de que se le indica lo 
que se debe incrementar el valor 
inicial. Su sintaxis es del tipo: 

(valor final + incremento) (valor 
inicial) DO (secuencia a ejecutar) 
(incremento) +LOOP 

IF ELSE THEN: es una estruc¬ 
tura de bifurcación en la cual se 


realiza una acción u otra en fun¬ 
ción de una condición. Su estruc¬ 
tura es: 

(condición) IF (secuencia a eje¬ 
cutar si la condición es cierta “tf”) 
ELSE (secuencia si la condición es 
falsa “fn THEN 

La condición es un número (que 
puede ser el resultado de una ope¬ 
ración) que consideramos falso “fT 
si vale 0, y cierto “tf’ en cualquier 
otro caso. 

BEGIN UNTIL: esta estructura 
ejecuta repetidamente una secuen¬ 
cia de órdenes hasta que se cumpla 
una condición. Se escribe con la si¬ 
guiente sintaxis: 

BEGIN (secuencia a ejecutar) 
(condición) UNTIL 

En este caso, al igual que los an¬ 
teriores y posteriores, la condición 
es un número del tipo “ff” o “tf \ 
además se ejecuta una vez aunque 
la condición fuese cierta desde un 
principio. 

BEGIN WHILE REPEAT:: esta 
estructura se escribe: 

BEGIN (secuencial) (condición) 
WHILE (secuencia2) REPEAT 
su funcionamiento es similar al de 
la anterior con la diferencia de que 
la condición de control se encuentra 
en cualquier punto de la secuencia 
y no al final, saliendo del bucle por 
ese punto, por tanto si la ponemos 
antes de la secuencia, el FORTH 
mirará primero la condición y en 
función de eso ejecutará, o no, las 
instrucciones. Otra diferencia se 
encuentra en que para salir del bu¬ 
cle se tiene que cumplir que la 
condición sea "ff" (al contrario 
que en el caso anterior en el que la 
condición de salida es “tf’). 

BEGIN AGAIN: este bloque 
(también conocida como "piérde¬ 
te”) ejecuta la secuencia infinitas 
veces (o hasta que lo paremos por 
la fuerza bruta). Su sintaxis es: 

BEGIN (secuencia) AGAIN 

LEAVE: esta palabra no lleva 
estructuras anejas, cuando se eje¬ 
cuta, da a la variable del lazo el va¬ 
lor adecuado para que el bucle ter¬ 
mine con el siguiente paso por una 
instrucción “LOOP” o “+LOOP”. 
En caso de que existiesen varias es¬ 
tructuras anidadas, sólo saldría del 
lazo más interno (verfigura 4), 

QUIT: esta es una palabra de 


Figura 3. Operaciones lógicas. 


BiU 

Crtlfl 

de 

d* 

fl'HJc 

SmH& 

Represen tac ion Representación 

decimal bina ría 

Operación AND 55 * 0 0 | i 0 | 11 

23* 0 0 0 10 1 II 

% 

0 

0 
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0 

i 

0 
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| 

55 AND 23* 23= 0 0 QL, 0 1 1 ! 

Operación OR 

211= 1 10 1 10 11 
31= 0 0 0 1 1 1 1 1 ! 
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217 OR 31 * 255- 110 11(11 
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224 s 110 1 1 1 1 0 
193 = 1 10 0 0 0 0 1 
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224 XOR 193* 63 * 0 0 0 1 1 1 1 1 
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Llegó el FORTH 


tipo similar a la anterior. Lo que 
hace es abandonar todas las estruc¬ 
turas y volver al intérprete 
Si usted quiere empezar a traba¬ 
jar en FORTH, le conviene definir 
la siguiente palabra: 

: ,S 

SP@SO@~ 

-DUP 0= 

IF 

CR. “STACK VACIO” 

ELSE 
SO @ 

DUP ROT + 

DO 
CR I ? 

2 


+LOOP 
THEN; 

Su utilidad (fundamental para 
principiantes) nos enseña el conte¬ 
nido del stack sin modificarlo y en 
caso de que estuviese vacío impri¬ 
me “STACK VACIO”. Para aque¬ 
llas personas acostumbradas al 
BASIC u otros lenguajes similares 
les enseña como se modifica la pila 
en función de las operaciones que 
realicemos. 

Incluimos a continuación unos 
listados en FORTH y en BASIC 
indicando su tiempo de ejecución, 
para poder comprobar las diferen¬ 
cias entre ambos lenguajes. 


1) Contar de 1 a 10.000: 

BASIC: 

10 FOR 1= 1 TO 10000 : NEXT I 
(segundos) 

FORTH: 

: TEST 10001 1 DO LOOP ; ( se¬ 
gundos) 

2) Calcula los cuadrados de los 
primeros 1000 números impri¬ 
miéndolos. 

BASIC: 

10 FOR I = 1 TO 1000 : POKE 
23692,255 : REM Para que no 
pida scroll? 

20 PRINT r 2: NEXT I ( segun¬ 
dos) 

FORTH: 

: TEST 1001 1 DO I DUP M* D. 
LOOP; (segundos) 


Figura 4* Ejemplo del uso de LEA VE. 



00 


00 


OU IT 


DO 


LEAVE 


LOOP 


+ LOOP 


LOOP 



QUIT escapa al monitor 


LEAVE obliga el fin 
de DO.,., LOOP 
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Base de datos 
en microdri ve 

Lograr un buen manejo de datos a 
través de memorias externas, en 
nuestro caso microdrives, es el 
gran sueño de cuantos hemos de 
luchar contra i ngentes y 
desorganizadas cantidades de 
datos. Con este programa podrá 
grabar sus datos en microdri ve o 
cassette, según la opción deseada. 



L e proponemos un 
simple programa 
de base de datos 
para el microdri ve 
principalmente, 
que le permitirá almace¬ 
nar e intercalar dos listas 
de ficheros. Unos ejem¬ 
plos posibles serian el 
catalogar artículos de re¬ 
vistas, listas de software 
y números de teléfonos. 

Teclee el programa tal 
y como aparece en el lis¬ 
tado, y pulse RUN 500 y 
ENTER. Aparecerán las 
distintas opciones posi¬ 
bles. Veámoslas en for¬ 
ma resumida: 


1, Añadir al fichero 



En esta opción habrá 
de introducir el nombre 
y los datos. A continua¬ 
ción se le pregunta si es¬ 
tán correctos. Pulsando 
M S” podrá añadir más 
datos, “N” borra la últi¬ 
ma entrada y permite te¬ 
clear la entrada correcta 
y “F” finaliza la entrada 
y las intercalaciones de 
datos volviendo al menú 
principal. 


1 REM *********************** 

2 REM * Programa de * 

3 REM * Base de datos * 

5 REM *********************** 


9 REM rutina SQRT 

10 PRINT AT 20,0; FLASH 1;“ESP 
ERE POR FAUOR, ESTOY ORDENAN-DO, 

20 LET t=0 

30 FQR i=1 T0 C-1 

40 IF a * (1 , i) <»a t 11,i+1) TMEN 

GO Tü 70 

49 REM intercambiar 

50 FOR j=l TO 2: LET S$=a*<j,i 
): LET a( i j ,, i i =a* ( j * i+1) : LET a$ 
ij,i+11 =S *: NEXT J 

60 LET t=l 

70 NEXT i 

30 IF t*l THEN GO TO 20 

90 BEEP 1,0: RETURN 

Rutina de SurL “c" es la 
longitud del archivo y "T * es 
una variable de control par a 
detectar el final del Sort* 

99 REM Rutina para catalogar e 
n zf ei cartucho, d=num. drive 
100 CLÜ5E «4: OREN «4; 11 m “ ; d ; 11 i n 
dex. d " 

110 CAT 84,d 

120 GLOSE 84 

130 LET ZLET 6Qf=0 

140 OREN 84; "Iti " ; d ; "índex . d " 

150 INPUT 84;r* 

160 IF rís"" THEN LET eoY»eOf+l 
: IF Í0f=2 THEN GO TO 150 

170 LET Zf»Z*+r* 

130 IF 60 f 02 THEN GO Tú 150 

190 GLOSE 84 

200 ERASE '■ m “ ; d “índex .d" 

210 RETURN 

Rutina para introducir el 
catálogo en la variable Z$. 

499 REM Procedimi ento inicial 

500 DIM as(2,1000,151: DIM df(l 

5): LET pr*2: LET c*l 

Iiílciatízaeión tablas y 
variables de control. 


i 






























2. Borrar el fichero 


Teclee el nombre del 
fichero a borrar. El 
nombre y los datos de 
este fichero quedarán 
anulados. 


3. Búsqueda y 
listado de elementos 

Teclee el nombre de 
la cadena a buscar den¬ 
tro de la lista y todos los 
elementos que conten¬ 
gan la cadena se listarán. 
Esta es una de las partes 
más importantes del 
programa, consecuencia 
del rápido algoritmo de 
búsqueda que se descri¬ 
be en el listado. Observe 
el bucle doble que apa¬ 
rece en las líneas 3060 a 
3100. 


510 PAPER 1: BÜRDER 1: CLS : IN 
K 7; PRINT RT 5,10;"© G.B.MQNK": 
PAUSE 100: CLS 

Sifl REM opciones principales 
520 CLS L PRINT RT 2,2; r 'ELIGE U 
Nfi OPCION 1 ' „ 

530 PRINT RT 6,2; "B-RNYADIR RL 
FICHERO" 

S4.0 PRINT RT 8,2; "i-DELETE DEL 
FICHERO" 

550 PRINT RT 10,2;"B-BUSOUEDR/L 
ISTRR ELEMENTOS" 

560 PRINT RT 12,2;"Q-IMPRIMIR F 
ICHERÜ" 

570 PRINT RT 14-, 2; "(l-IMPRESÜRA 
"; "ÜN" RND pr=3;"0FF Tr RND p r =2 
580 PRINT RT 16,2;"0-SRUE/LORD 
DRTOS" . „ 

590 PRINT RT 20,6, FLRSH l;"Pul 

sa el numero deseado." 

600 LET k(sINKEYt 

610 IF k $ <"1" OR THEN 00 

T0 600 

620 BEEP .3,15: CLS : 00 SUB 10 
00*URL kí: 00 TO 520 


999 REM anyadir al fichero 
1000 IF c»1000 THEN PRPER 0: INK 
7; BORDER 0: CLS : PRINT TAB 8; 
FLRSH 1; BRIGHT 1;"LO SIENTO, N 
0 HAY SltlO.": PAUSE 1: PAUSE 20 
0: BORDER 1: PRPER 1: INK 7. RET 
URN 

1010 PRINT RT 20,0.: TRB 5; "NOMBRE 
"¡TRB 20;"ORTOS"'': RRNDOMIZE US 
R' 3532 


Menú. Opciones riel programa. 


Rutina de altas de i fichero. La 
linea 1000 comprueba si el 
fichero se encuentra lleno. La 
instrucción RANDGMIZE 
l SR 3582 produce el 
SGROLL de una línea. La 
linea 1070 permite la 
introducción e impresión de 
nuevos datos. 



WORLD-MICRO LE ENTREGA ElQLcON LA SOLUCION A SU PROBLEMA 



World 


tero s.a. 


I Avda. Mediterráneo, 7 
Tais. 251 12 00 - 251 12 09 
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Base 

de datos 
en 

microdrive 


4. Imprimir ficheros 

Se imprime el fichero 
completo, bien por pan* 
talla o bien por impreso¬ 
ra dependiendo de la op¬ 
ción que se haya selec¬ 
cionado en el punto si¬ 
guiente. 


5. Impresora 
ON/OFF 

Permite la obtención 
de informes por pantalla 
o por impresora. Inicial¬ 
mente se realiza la im¬ 




presión por pantalla. 
Presionando la opción 
5, aparecerá un mensaje 
en la parte superior iz¬ 
quierda de la pantalla 
“IMPRESORA ON” o 
“IMPRESORA OFF” 
según el caso. 


1020 LET c = c +1. REM incrementa e 
i contador da L fichero 
1030 INPUT "Nombre? "ja* (1,0 
104-0 PRINT AT 20,0; a$ ti, c) , 

1050 INPUT "Datos? 

1060 PRINT AT 20,15,a*(2,C) 

1070 PRINT RT 21,0; "0 . K, tS/n) O 
r p tO STOP." 

1080 IF INKEY $ = "n" OR INKEYÍs"N" 
THEN GO TO 1030 

INKEY $ = "S " 
RANDQMIZ 


1090 IF INKEYÍ="S" OR 
THEN PRINT RT 21,0.; " 


E USR 3582: GO TO 1020 

1100 IF INKEY * í > ”p “ RND INKEY*O 

"P" THEN GO TO 1030 

1110 RfiNOQMIZE USR 3532: GO SUB 

10: REM SOrt 

1120 RETURN 


1999 REM de tete det fichero 

2000 LET d=0: REM d*dei % ete conta 
do r 

2010 INPUT "Etemento a borrar? “ 

; d $ 

2020 POR i=l Tü c 

2030 IF a*íl,i)*d* THEN LET a* ti 
, i isCHR* 143: LET d=d + l 
2040 NEXT i 


La línea 20.MI produce un 
espacio en IN V ERSE (CHR$ 

143), a fi n de que quede 
colocada en úliimo lugar la 
realización del Snrt. Por efecto 
de las líneas 2050 y 2060, se 
llama a la rutina de Son y se 
deerementa el contador de 
archivos en una unidad, con lo 
que en definitiva se elimina el 


2050 GO SUB 10: REM SOft 
2060 LET C=C-d 
2070 RETURN 


último fichero. 


2999 REM buscar e imprimir 

3000 LET t=l 

3010 INPUT "Elemento a buscar ? 

"; s* 

3020 P.RINT RT 19,0; "Bus cando a " 
; s $ 

3030 PRINT ttpr;RT 20,0.;TRB 2; "EL 
EMENTO",ThB 20j"DATOS" 

3040 IF p f =3 TMEN LPRINT 

3050 LET tn =LEN S*-l 

3060 FOR i=1 TO C 

3070 FOR j =1 TO 15-tn 

3080 IF a*(l,i,j TO J + trii=S* THE 

N RRNOOMIZE USR 3532: LET t s0 : P 

RINT ttpr;RT 21,0;a $(1,i) ,a $(2,i) 

3090 NEXT j 

3100 NEXT i 

3110 RRNDOMIZE USR 3582 
3120 IF t=l THEN PRINT RT 21,0;" 
No existe tal elemento.": RRNDQm 
IZE USR 3582 

3130 IF Pf=2 OR t =1 THEN PRINT R 
T 21, 0 ;"Puise s cuando este List 
O.": IF INKEY * O " S " THEN GO TO 3 


La variable “t" permite saber 
si se ha encontrado el fichero. 
Las lineas .1050 a 3100 
constituyen la rutina de 
búsqueda. 


130 

3140 RETURN 


3999 REM imprimir fichero 

4000 PRINT #Pf,HT 20,0,TRB 4; "EL 
EMENTO";TRB 20;"DATOS" 

4010 IF p C = 3 THEN LPRINT 

4020 FOR i al TO C 

4030 RRNDOMIZE USR 3582 

4040 PRINT ttp r; RT 21,0.; a s (1, i) , a 

$(2,i) 


I mpresión del fichero. 


4050 NEXT i 

4060 PAUSE 1: PAUSE 100 
4070 RETURN 


4999 REM impresora on/off Posibilidad utilización 

5000 IF p f = 2 THEN LET p f =3 i PRIN impresora. 

T "IMPRESORA ON": PAUSE 1: PAUSE 

50: RETURN 

5010 IF Pi'=3 THEN LET pi*=2: PRIN 





























6. SAVE/LOAD 


Con esta opción se 
permite el almacena¬ 
miento del programa y 
los dalos en cassette o 
microdrive. Si se elige la 
opción del microdrive se 
comprobará si ya existe 
en el cartucho, asi como 
la existencia de espacio 
suficiente para la graba¬ 
ción. La rutina a catalo¬ 
gar en Z$ hace estos pa¬ 
sos y comprueba los po¬ 
sibles errores. 

Con el formato actual, 
el programa se puede 
utilizar para guardar ti¬ 
pos múltiples de datos. 



elige unr ÜPCIÜN 

B-fiN'fñGIR AL 

FICHERO 

g-bELETE DEL 

FECHFRü 

1-BUSQUEDA/LISTAR ELEMENTOS 

0’IMPRIMIS FICHERO 

HÍ|HP'RE50Rfi 

ÜFF 

^3hVE, LQPÜ 

DATOS 

py el 

NUMERO de&eadü. 

Menú de opciones (líneas 519 

- a 580) 


ELEMENTO 

DATOS 

. Pu 1 1 

Cibernética 

J an Pr. 

jr>iáde g a m* ¿ 

.John 

machine tode 

i A i fftZ 

circuít o * 

JdG K i 0 

■digi tos 

tlUiaíü 

± p r i tes 


Ejemplo de impresión por pan¬ 
talla o Impresora, según opción 
elegida. 


Sin embargo, ei progra¬ 
ma es muy manejable e 
incluye una potente ru¬ 
tina de búsqueda. Esta 
rutina {líneas 99 a 210) 
puede resultar muy útil 
para incorporar en sus 
programas que utilicen 
microdri ve. 


T "IMPRESORA QFF"; PRUSE 1: PRUS 

E 50: RETURN 


5990 REM save/toad 

6000 PRXNT RT 2,4;"ELIJA OPCION" 

501® PRINT TflB 4;"B-GRSSETTE"'' 
6020 PRINT TRB 4j"g-MICRÜORIUE" 
6030 LET K $ = INKEY4 

6040 IF Uo"l" RNO k 4 O " 2 " THEN 
GÜ Tü 6030 

5050 IF K $ = "2" THEN GO TO 55O0 

Opción cassete o microdrive. 

6059 REh cassette 

5060 CLS 

6070 PRINT "Prepare el Cassette 
de da tos . " 

6030 PRINT "Desconecte ERR." 

6090 SAUE "Data Base" LINE 51© 
6100 CLS 

6110 print "Uerificaci on . Rebobi 
ne La cinta y conecte ERR." 

6120 print "Si hay algún error " 

" GOTO 6060 . . 

613© print "Ponga en marcha el c 
asse t te . " 

6140 UERIFY “Data Base" 

5150 PRINT "Q.K." 

6160 PAUSE 1: PRUSE 200 

6170 RETURN 

Rutina grabación en cassette. 

6499 rem microdrive 

6500 CLS : PRINT " Numero del dr 

i ve ? (1-3) " : FOR i=1 TO 50: NEX 

T i 

6510 LET K 4 = INKEY $ 

6520 IF K 4 <" 1" OR THEN GO 

TO 5510 

6530 LET d=UAL Kí 

6540 CLS : print " Numero del dr 
íve ";d 

5550 INPUT " Nombre del fichero 
; s * 

6560 IF LEN S$>10 OR LEN S$=0 Th 
EN GO TO 6550 

6570 print "Nombre del fichero:- 

'■;s$ 

65S0 print '"Leyendo el cataiog 
o. Espere" 

6590 GO SUB 100 

6600 LET Z*sz$i;il TO ) 

6610 LET s*0 

|S 3 ® if F 2$t TO LEN s $> =s* THEN L 
ET * = 1 : ijQ T 0 6600 

6640 LET 2 4 = z*i:il TO ) 

6650 IF LEN 2 %>10 THEN GO Tü 663 

0 

6660 IF S =1 THEN GO TO 6800 

6670 IF URL Z4<35 THEN PRINT "No 
hay espacio suficiente.": PRUSE 

1: PRUSE 200: RETURN 

6630 PRINT "Gratando ".;s$ 

6690 SAUE *"m"j d:£$ LINE 510 

6700 PRINT SÍ:" Grabado." 

6710 PRUSE 1: PAUSE 100 

6720 RETURN 

6800 PRINT ttl;flT 0.O;"EL fichero 
ya existe -Lo sus ti- rais/n)" 
6310 LET K 4 = INKEY $ 

6320 IF K $ = "N" OR *4=“n" THEN RE 
TURN 

6830 IF k 4 < > "S" OR k40"s" THEN 

GO TQ 6310 

6840 PRINT "Borrando Fichero ";s 

6350 ERASE "m"; l;$4 

6860 GO TO 6630 

9999 CLEAR : ERASE "m";1;"Dbase 
2.3": SAUE *"m“;I;"Dbase 2.3" 

Rutina de grabación en 
microdrive. 

Líneas 6500 a 6570 permiten 
la identificación del drive y el 
nombre del archivo. 

Línea 6590: Llamamiento a la 
rutina de impresión del 
catálogo en ZS, 

Las líneas 66IÜ a6600 
comprueba la existencia del Z$ 
en el microdrive y actualiza las 
variables de control. 

La Línea 6690 posibilita La 
grabación del archivo. 

La comprobación sobre el 
espacio. 

La línea 6690 graba el archivo. 

Si el nombre dado ya existiese 
en el cartucho, se preguntará si 
se produce la actualización de 
la información contenida bajo 
el mismo nombre (6800), y sí 
es así se elimina el archivo 
anterior (6850) y se graba en el 
nuevo archivo. 


























Uno de los mayores placeres de cuantos nos dedicamos 
al periodismo, es poder escribir los artículos con un buen 
editor de textos. Por eso, cuando empezamos a trabajar 
con el Tasword, en seguida quedamos prendados de la ver¬ 
satilidad con que nos permitía escribir. Cuando diseñamos 
un interface para la impresora, con el que trabajar de for¬ 
ma profesional, el ordenador empezó a mostrar un funcio¬ 
namiento anómalo... ¡El editor había encontrado su com¬ 
pañera ideal! 


uando 
al editor 
le conquistó 
la impresora 


En el número anterior se descri¬ 
bió la construcción de un econó¬ 
mico interface CENTRONICS 
para impresora. El objetivo de este 
artículo es explicar las modifica¬ 
ciones que habremos de hacer en 
el Tasword, editor de textos 
comentado igualmente en el ante¬ 
rior número, para poder usarlo 
con el mencionado interface. 

Dado que la información que se 
ofrece con el Tasword (o Con- 
text en la versión española), sobre 
los códigos de control de los inter¬ 
faces es a todas luces insuficiente 
para nuestros propósitos, se hacía 
necesario la realización de un pro¬ 


grama que gestionase la salida de 
textos a impresora. La ventaja que 
esto supone es la de permitimos la 
obtención de hojas impresas más 
acordes con nuestro gusto y, de 
paso, solucionar el siempre pre¬ 
sente problema de las enes. La ñ 
no existe en el inglés, por ello re¬ 
sulta muy difícil encontrar eñes en 
los teclados de los ordenadores. 

Para imprimer la “ñ’\ haremos 
uso de las posibilidades gráficas 
que ofrecen las impresoras de ma¬ 
triz de puntos. Se puede decir que 
vamos a hacer un dibujo de la le¬ 
tra. Siempre que queramos que 
aparezca una ñ habremos de utili¬ 



zar algún carácter no usado. No 
haremos que aparezca en pantalla, 
pero podremos estar seguros de 
que aparecerá impreso correcta¬ 
mente en el papel. En este progra¬ 
ma se ha usado la ya que apenas 
se utiliza. Solamente hemos defini¬ 
do lañ minúscula porque una pan¬ 
talla llena de @ y 4 + podría dar lu¬ 
gar a muchos problemas de inter¬ 
pretación. En cualquier caso la 
modificación que habría que hacer 
al programa no seria muy proble¬ 
mática. 

El archivo de texto 

En primer lugar, es fundamental 
conocer cómo el Tasword dis- 










tribuye la información escrita, es 
decir, de qué manera el texto se es¬ 
tructura dentro de la memoria del 
ordenador. Afortunadamente para 
nosotros es extremadamente senci¬ 
llo. 

La dirección de comienzo de la 
zona reservada al texto ('text buf- 
fer) puede conocerse fácilmente 
haciendo PRINT PEEK 62216 -h 
256*PEEK 22217 y da el valor 
32000. Cuando estamos trabajan¬ 
do en BASIC y queremos conocer 
la longitud del texto, nos basta con 
escribir PRINT A. 

Si con estos datos investigamos 
en el que hemos llamado text buf- 


fer y tenemos en cuenta que una lí¬ 
nea está compuesta de 64 caracte¬ 
res, llegaremos a las siguientes 
conclusiones: 

—El texto se almacena en me¬ 
moria en forma literal. Por ejem¬ 
plo, a una línea en blanco corres¬ 
ponden 64 bytes con el valor de 
32, valor del espacio según el códi¬ 
go ASCII. Si se usan márgenes, las 
bandas laterales vacías se rellenan 
de espacios. Los símbolos gráficos 
están representados por el valor 
correspondiente según el juego de 
caracteres que usa el Spectrum. 

—No existen códigos de control 


(Fin de línea, salto de página, 
etc....). 

De esta manera, para imprimir 
un texto habremos de mandar a la 
impresora los números que encon¬ 
tremos en el text buffer, en bloques 
de 64, y a continuación dar la or¬ 
den de imprimir y avanzar el pa¬ 
pel. La única excepción lo consti¬ 
tuyen: 

—Los caracteres gráficos: dare¬ 
mos al interface unos valores dife¬ 
rentes según el significado acorda¬ 
do para cada carácter. Por ejemplo 
si encontramos un L . que significa 
que debemos empezar a escribir 
caracteres a doble anchura, la im¬ 
presora debe recibir el número 
OEh, (14 en decimal, cuyo mne- 
mónico es SO,Shift O mí). 

—La@: en vez de mandar el nú¬ 
mero 64 (que supondría imprimir 
dicho símbolo), debemos pasar al 
modo gráfico (enviamos los códi¬ 
gos de ESC K (27,75) y a continua¬ 
ción, indicamos el número de pun¬ 
tos que va a tener el gráfico a lo an¬ 
cho (a lo alto es invariablemente 
8 ). 


El programa en ENSAMBLA¬ 
DOR 

En la figura 1 se ve un organigra¬ 
ma simplificado del programa. 

La impresora usada, la MX-70, 
cuenta únicamente con la ‘exquisi¬ 
tez’ de caracteres a doble anchura. 
Para impresoras más modernas 
podemos hacer subrayados, carac¬ 
teres en cursiva,... 

Las posibles modificaciones al 
programa de control son sencillas 
y se explican más adelante. 

El programa definitivo muestra 
la estructura que se plantea en la 
fig. 2. 

Se ha preferido que la cabecera 
de la hoja se imprima desde el BA¬ 
SIC ya que es este el lugar que más 
“toques personales” puede recibir 
y en consecuencia debe poder 
cambiarse fácilmente. 

Así, es que, cuando se ha impre¬ 
so una hoja, el control del progra¬ 
ma pasa al intérprete BASIC que 
se encarga de imprimir el número 
de la página y de dejar las líneas en 
blanco necesarias. 

Por ello siempre que volvamos 










Sí Le interesan los montajes 
y realizó el que le proponíamos 
en el numero anterior 
sobre el ínter face CENTRONICS, 
esta es su oportunidad de incorporar 
un poco de software para sacarle 
el máximo rendimiento. 


PROGRAMA I 


al BASIC será necesario guardar la 
dirección del carácter próximo a 
escribir. El lugar donde se g-uarda 
este número es lo que hemos lla¬ 
mado HLSAVE. Después de estos 
dos bytes de reserva, tenemos la 
subrutina PRINT, la encargada de 
gestionar el intercambio de infor¬ 
mación con el interface (la buro¬ 
cracia). Es idéntico al que se expli¬ 
có en el artículo dedicado al inter¬ 
face, por lo que no requiere más 
comentarios. 

A continuación encontramos el 
conjunto de números que hay que 
pasar al interface para que escriba 
una ñ. Lo hemos llamado ENNEG 
por aquello de Grálleos de la 
ENNE. 

El programa I se usará para in¬ 
troducir en HLSAVE el valor de la 
dirección de comienzo del texto. 
En consecuencia solo se utilizará 
una vez al empezar a imprimir un 
documento. 

El segundo programa será el de 
uso general. Se pasa a describir a 
continuación, en la fig. 3. Paralela¬ 
mente ofrecemos un diagrama de 
flujo ya más detallado. 

El registro C se ha usado como 
contador de las líneas que quedan 
por imprimir. El valor que loma 
inicialmente podrá cambiarse (ver 


programa en BASIC) Después de 
inícializar la C, se “imprime” un 
número de espacios correspon¬ 
dientes al margen izquierdo. Tam¬ 
bién el número de estos espacios 
puede alterarse. 

El registro B contendrá el núme¬ 
ro de columnas por página (64 en 
el Tasword). Se hace uso de la 
cómoda instrucción DJNZ.A con¬ 
tinuación se observa si el carácter a 
imprimir tiene un código por de¬ 
bajo de 32 (esto debería ser im¬ 
posible). en cuyo caso volvere¬ 
mos al BASIC para informar del 
error. Bien podría ocurrir que tu¬ 
viéramos caracteres gráficos. Si así 
fuera comprobamos si se trata de 
alguno de los dos que funcionan 
con nuestra impresora. En caso de 
usarse otra que admitiera otros ca¬ 
racteres de control, podremos am¬ 
pliar el programa en la misma filo¬ 
sofía, esto es: 

LD A. Código del gráfico 
CP (HL) 

JRNZ, OTRO 
LD A, Código impresora 
JRENTRY1 
OTRO LD A,... 

Otra posibilidad es que nos en¬ 
contramos con la En este caso 
enviaríamos a la impresora los da- 


aagíREM 

£10 CLS __ ___ 

220 LET fl $ = "D3FF3É80D3DFDBDFE60 
123FAC9 1B4B0500BER0R01E002A0SF32 
200S6C92R005B0E3C06033E20CD025B1 
0F906403E1FBE301D3E7EBE38423E40B 
E233D7ECD025B23 11 
230 LET fl$sRj+“ 10EA3E0ACD825I33E 
0FDBFEIF38042200SBC93E00BC300720 
F57DFE0038F00D20C03E0CCD025B18E6 
D90609110F6B1RCD025B1310F9D918C? 
3E3EBE2004-3E0E18BB3ES18E20C33E14 
1862 “ 

240 FOR 1*1 TO LEN R*/8i POKE 2 

3297+1, is*fn h cr* (2*i-m+rN hír 

t (2*1) ) ; NEXT I 

250 DEF FN H(U*)*CÜDE U*~CODE " 
a"-?*(Ui>"9") 

JPt 


380 INPUT "Comienzo cotumna (8) 

"; ñ|: IF R* = M " THEN LET A**"8“ 
262 POKE £3333,URL R« 

264 INPUT “Numero de Linees por 
pagina (80)' 1 ¿R*: IF A** 1 '" THEN 
LET fl $ ■" 60“ 

266 LET LIN*URL R*: POKE 23331, 
LIN: LET ESPslNT (720/LIN) 

268 INPUT “Separación entre un 
tas’ 1 ' 1 * NORMAL: 12“ ' C “ RECOMEND . ( 
¿ESP;")“)'fl(: IF Rí" THEN LET 
RfsSTR* ESP 

170 LET GURRDrfl: LET fl*27: GO S 


UB 400: LET R=65: GO SUB 40®: LE 
T fi=UAL A*: GO SUS 400 
272 INPUT ‘'Comitnzo en pagina c 
1) ;fl(: IF flí =“ " THEN LET R*s“l" 

274 LET PRG=URL R$-l 
280 PRINT RT 20,0; FLASH 1;“ 
Apriete SPRCE para parar 
285 LET B*FN P (62216) +GURRD: PO 
KE 23332,INT ÍB/2S6>; POKE 23390 
,B-256*INT (B/256): RflNDOMIZE US 

R 33320 

290 FOR 1*1 TO GUARD/64/LIN+1 
300 LET R s10: GO SUB 400 
310 FOR J = 1 TO 32: LET A»CODE *' 
": GO SUB 400: NEXT J: LET fl=CO 
DE GO SUB 400: LET fl**STR| 

(I+PRG): FOR J*1 TO LEN A$: LET 
RsCÜDE R$ CU) ¡ GO SUB 400; NEXT J 
LET AsCODE : GO SUB 4®0: LE 
T R = 10: GO SUB 400: LET A = l®: GO 
SUS 400 

320 IF NOT USR 23327 THEN NEXT 
X: LET A*GUfiRD: GO TO 25 
330 IF IOINT CGURRD/84/LIN + 1) 
THEN CLS : BEEP .1,3®: PRINT RT 
10,13; FLASH 1;“ERROR": STOP 
340 LET a bGURRD: GO TO 25 
400 OUT 255,fl: OUT 223,128 
410 LET A=IN 223: IF A*2*INT (fl 
/2) THEN GO TO 410 
420 RETURN 
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tos correspondientes a la ñ. Si qui¬ 
siéramos definir la ñ mayúscula, 
deberíamos comparar de nuevo si 
se trata del carácter correspon¬ 
diente, y enviar los números ade¬ 
cuados. 

Si no ocurre ninguna de estas si¬ 
tuaciones, se imprime el carácter. 
Comprobamos si hemos acabado 
la linea. En este caso, daríamos a la 
impresora el código de imprimir y 
avanzar el papel. A continuación 
muestreamos la tecla BREAK. Si 
se estuviera apretando, volvería¬ 
mos al BASIC. En caso contrario, 
comparamos la dirección de la le- 


PROGRAMA 2 





00026 

} 

donde LONG GRRF*256*nitn2 

Ums. 

; #*«**#*****»#«****»* 

00029 


0EF9 

1011U10B 

00003 

; #*## 

TflSUÜRD II #*** 

00030 


DEFB 

101000006 

00004 

; *#**«*4****»«******* 

00031 


DEFB 

101000006 

00006 



00032 


DEFB 

000111106 

00006 

: (2 Luis Miguel BRUGRRQLRS 

00033 


DEFB 

000000006 

00007 



00034 




00006 



00035 

PRGQ1 

LD 

HL,(62216) 

00009 

FF 

EQU 12; i FO riíi Fttd ), 10 l10 

00036 


LO 

(HLSRUE),HL 

00010 

t 

dt pagina 

00037 


RET 


00911 

LF 

EQU 10,(Lina Ft«d), 

00038 




00012 

| 

imprimir Unta y avanzar 

00039 

PR0G2 

LD 

HL,(HLSRUE) 

00013 

j 

papel 

00040 


LD 

C,60;Num Uneaa/boJa 

00014 



00641 




00016 



00042 

NEULIN 

LD 

6,8,Num «apacio/hoja 

00016 

HLSRVE 

OEFS 2 

«0043 


LD 

a ' • 

00017 



00044 


CflLL 

PRINT 

00016 

PR1NT 

ÜUT (255),R 

00045 


DJNZ 

MARGEN 

00019 


LD ñ¿60H 

00046 




00020 


OUT <M3),R 

«««47 


LD 

B,64;Num coiumn/hoja 

00021 

LOOP 

IN fl,(223) 

00046 

NEULET 

LO 

R, 31 

60022 


AND 1 

00049 


CP 

(HL) 

00023 


JR 2,LOOP 

00050 


JR 

NC,BASIC:ERROR.cod. 

06024 


RET 

00051 

1 

no valido 

00026 



00052 


LD 

R, 126 

00026 

ENNEG 

DEFB 26,'K/,5,® 

00063 


CP 

(HL) 

00627 

1 

Codi 90 da ESC K,<n2>,<nl> 

00054 


JR 

C, ORRFT a l vez GRRF 
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tra sobre la que trabajamos con la 
de final del texto. Si coincidieran, 
volveríamos al menú del Tas¬ 
word. En otro caso, continua¬ 
ríamos hasta acabar con la página. 
Entonces volvemos al BASIC, esta 
vez para imprimir la cabecera, y de 
nuevo pasamos el control de la 
operación a este programa. 


Modificaciones al Tasword 

Si bien es muy interesante cono¬ 
cer el programa anterior, no es en 
absoluto imprescindible para po¬ 
der usarlo. A continuación vamos 
a explicar los cambios que tene¬ 
mos que hacer al Tasword para po¬ 
der usarlo con nuestro interface. 

—Cargar el Tasword en el 
ordenador. 

—Borrar todas las líneas de BA¬ 
SIC entre 200 y 490 (inclusive). 

—Eliminar las lineas 45, 160, 
660. 

—Modificar las siguientes lí- 
neas* 

20 INK 7:PAPER 0:BÓRDÉR 

0;CLS:LET A=... 

125 IF B=116 THEN LET 1=14 

170 IF B=98 THEN LET 1=16 

610 IF B=121 THEN INK 

0:PAPER 7:CLS:GOTO 10 

—Escribir el programa 1, y com- 


44455 

LD 

Aí ' 8' 

99956 

CP 

<HU 

89957 

JR 

z, enhe;E s ie enhe 

99956 

LD 

A,(HL) 

99959 

ENTRY1 CALL 

PRINT 

99469 

ENTRY2 INC 

HL 

94961 

DJN2 NEULET 

94962 



44463 

LD 

A,LF;Imprimir 

99464 

CALL 

PRINT 

49865 



80966 

juolver « BASIC ti se he pul sedo 

90867 

jBREAK 


90066 

LO 

A,BFH 

99969 

IN 

A,(4FEH) 

94979 

RftA 


00471 

JR 

C,C0NT 

VJwwfi 

99073 

BASIC LO 

(MLSAUE),HL 

98074 

RET 


98075 


* 

94976 

C0NT LD 

A,0;Hicer poke con 

09477 

; perte alte dirección Fin 

00478 

CP 

H 

90079 

JR 

NC,NL 

04084 

JR 

N2,BASIC 

09081 

LD 

A,L 

00482 

CP 

4;Hecer POKE con 

j 


04063 

910164 

49085 

04486 

91987 

88888 

89989 

88999 

99491 

80092 

99993 

49494 

99495 

99995 

44497 

448|6 



» 

NL 


ENHE 


D0TS 


Í9141 
48192 
44143 
144144 
44145 
49146 
99147 
88188 
98149 
44114 


per te be ja dirección fin 


JR 

DEC 

JR 

LO 


,BASIC 

ÑZjNEULIN 

A»FF;Salto de p«9 


CALL pfclNf 
JR BASIC 

EXX 

LO 6,49 
LD DE,ENNEO 
LD A,(DE) 
CALL PRINT 
INC DE 
0JN1 OOTS 

JR ENTRV2 


0RAF 


N0ABR 


A, 142 

(HL) 

N2.N0ABR 

A,Í4;Cod cer DOBLES 

ENTRV1 

A, 129 

(HL) 

NZjBASIC 

A;24;Cod cerect norm 
ENTRY1 


















































































probar que está correctamente es¬ 
crito. 

—Grabar el programa en BASIC 
en cinta, y comprobar. 

—Descansar por el esfuerzo rea¬ 
lizado. 

—Cargar el programa en BASIC 
grabado previamente y después el 
programa en código máquina ori¬ 
ginal. 

—Grabar de nuevo. 

Tal vez pueda parecer algo raro 
los últimos pasos pero pueden sur¬ 
gir problemas debidos a la falta de 
memoria si no se siguen correcta¬ 
mente. 


Funcionamiento 

En cuanto al funcionamiento 
del programa solo hay que decir 
que en las opciones que se piden, si 
queremos el valor entre paréntesis 
es suficiente con apretar ENTER. 
Si resulta muy latoso dar todos los 
datos se pueden eliminar los IN- 
PUTS que cada uno considere ne¬ 



cesario, o bien cambiar los valores 
por defecto. 

Una última anotación. Al selec¬ 
cionar la opción de impresión se 
observa que la pantalla aparece 
negra algún tiempo. Mientras tan¬ 
to se introduce el código máquina 
en el buffet de impresora. Ha de 
realizarse cada vez para estar segu- 


Kjemplo de 
impresión. Para 
escribir cartas 
«inte reíales se evitará 
ti paginado di minando 
Jas líneas 272 T 
274 y 310. 


ros de que va a continuar en este 
sitio ya que otras opciones del 
Tasword usan la misma zona 
de memoria. Con un DATA la 
transferencia es mucho más rápi¬ 
da, pero ocupa mucha más memo¬ 
ria... 


Luis Miguel 


SOFTIJRRE 

CEtlTER 


Avía. H-slui. 10.1.' D esc, Izía |{|3M32 07 3t 

BABCELONA-1 5 



D 


PAREJAS 


1 ' - ---- 

PROFESOR DIETETICO 


COMPTES - CUENTAS 


AGENDA PERSONA^^ 

Habilidad y educativo 


Utilidad 


Contabilidad fomifioí 


Utilidad 

1.790 p ts 


2.495 pts 


2.495 pts 


microdrive 3 . 300p(l 






i JUEGOS OLIMPICOS: 


FICHERO PERSONAL 


METRO 


ARCHIVO 

11 BARCELONA 18 92 • 


Ur ¡ tidüd 


Haba ! i dad 


UUl Edad 

■ Simulación y habilidad 


mierodriue „ A 

3r 300ph 


1. 995 pjs 

| 

1 . ó 55 pts 






CALO 


TAHUR 


BASIC 


SCANGRAPH 

Uti t idod 


Arar y umulacion 


Educohvo 


U t i ( i dad 

2.3 30 pts 


2.225 pls 

j 

2. 350pts 


2 35 0 pts 






1 

CÜ8ALT 


MANAGER 


TRATATEAT 


CONTABILIDAD GENERAL 

Simutodoi de vutlo 


Simulación 


U1 i i i dad 


Gesf ion 

2. 500 pli 


3. OO 0 pts 


i microdrive „ 

3 300 pts 

1 


microdrive 




























































B En el programa Easel del nú¬ 
mero dos no reconocemos los ca¬ 
racteres empleados en las instruc¬ 
ciones POKE de la línea 50, ¿Es un 
fallo de impresión? 

Luis Matienzo 
Madrid 


Se trata de caracteres definidos 
por el usuario (UDG). Repetimos 
esta instrucción previamente a su 
definición, donde puede verse que 
los caracteres empleados se puede 
acceder fácilmente presionando A, 
B, y C en modo gráfico. 


49 POKE 83658,®: POR f *U8R "a" 
TO USR "C"+?: POKE 7,0: NEXT f 
OKE USR "fl“+4,265: POKE US 
4,804: POKE USR "C"+4,84.0: 
■■"ABC" 


90 POKE 
R "B^i 
LET K 


R 8 C D E . . . 
- ■■ - DE ■ ■ • 


B Veo con agrado en el número 
2, un esbozo de programas en 
FORTH y PASCAL. Los «científi¬ 
cos de por libre» como es mi caso 
veríamos con mucho agrado una 
sección dedicada al FORTH y 
PASCAL. José Perona 

Murcia 

R En este mismo número hace¬ 
mos una breve introducción ai 
FORTH. Lina serie de artículos 
sobre este tema comienza precisa¬ 
mente en este mismo mes en la re¬ 
vista ZX, Si está interesado en el 
PASCAL, esperamos verá con 
agrado la serie que abrimos sobre 
este lenguaje en el próximo núme¬ 
ro deTODOSPECTRCM. 


SI TE INTERESA LA 
ELECTRONICA 

Resuelve los problemas de. 
Diseño de filtros 
Análisis de redes 
Comunicaciones por 
ionosfera y por satélite 
Antenas y acopladores 
Lineas de transmisión 
Bobinas y transformadores 
Interferencias etc. - 

Con mas de 100 PROGRAMAS 
TECNICOS, perfectamente 
documentados en castellano, JT 
con ejemplos prácticos. 


§ 


zn 


Operativos en ordenadores: 
HEWLETT PACKARD serle 200 
ZX Spectrum 48 K 
Consultar para otros 

Asistencia técnica post venta 
Pide información a? 


í r= 


s oFTRomcñ s.ñ.® 


C/José Abascal, 52 
MADRID 28003 


Tel. (91)441 38 46 
(91) 450 18 24 


¿Te gustaría pasar tu s programas prefer idos a M ícrod rive?, 
¿O hacer tus copias de seguridad en cassette? 


HAZLO CON 


ZXSpectfum 

! □ UUUL_H ÍUUL 

t Lji.ir.irm non 
aüLjDaoiicr i 


1) CASSETTE A MICRQDRIVE 

2 ) CASSETTE A CASSETTE 


3) MICRÜDfWE A MICRQDRIVE 

4) MICRQDRIVE A CASSETTE 


TRANS-EXPRESS te permitirá transferir cualquier 
programa para tu Spectrum de 16 ó 48 K. 
TRANS-EXPRESS llega hasta donde 
programas similares no pueden hacerlo. 
TRANS-EXPRESS transfiere programas en Basic, 
Código Máquina o mixtos; protegidos o no; con o sin 
encabezamiento y podrás transferirlos de "una sola vez 1 '. 

Haz tus pedidos a: 

camBumania 


K 


Calle Pelayo, 12 -1*-- 08001 BARCELONA 
, Tel. (93) 301 47 00 


Envíeme .... copias de TRANS-EXPRESS al precio 

de 1.600 Pías. El importe lo abonaré por: 

Talón nominativo adjunto. rn 
Contra reembolso. (Más gastos) I J 

Nombre .. Apellidos........ 

Dirección . . ...*....... 


C.P. Población 











































































































































Con 48K, un poco de habilidad 
y algún que otro susto podrá llevar 
a casa a su rana favorita. Para 
ello ha de evitar ser atropellado en 
la carretera, teniendo en cuenta 
que a partir de la tercera fila de co¬ 
ches sólo puede desplazarse hacia 


adelante o hacia atrás, pero no 
puede moverse horizontalmente, 
lo cual le añade una mayor com¬ 
plejidad. Una vez que se llega a la 
parte central podrá tomarse un 
poco de respiro antes de meterse a 
la aventura acuática. Sobre el río 







van unos troncos y dos filas de tor¬ 
tugas traviesas, especialmente la 
segunda, que les gusta sumergirse 
de vez en cuando. Lógicamente ha 
de alcanzar el extremo de la panta¬ 
lla saltando sobre las tortugas y 
troncos, lo cual no resulta fácil. 

Los gráficos están muy bien lo¬ 
grados y es bastante rápido, resul¬ 
tando difícil de creer que esté reali¬ 
zado en BASIC. Otro aspecto de 
destacar es su buena estructura¬ 
ción: 

Lineas i0-20 

Inicial i zación del programa (s = 
puntuación, li = vidas y h() es la ta¬ 
bla de records), 

Líneas 30-50 

Inicialización posterior (fr = casa 
de la rana, t = tiempo restante, "a” 
y “b” = coordenadas de la rana). 
Líneas 60-67 

Comienzo del bucle principal. 
Se reduce el tiempo (t), impri- 


86 LET 

1*4K 0; PAPER t, 

87 IF t < =0 THEN 


PRINT AT 0,10; I 


GO 


5 REM ************* 

* * 

« FROQGER « 
* * 

************* 


TQ 3000 

70 LET (32) +i* < TO 31): L 

ET hf«h i (33) +h* C TO 31) 

30 LET bí*b$C2 TÚ )+bfíl): LET 
TO )+6*<l): LET 9*=9t<2 
TO > +9 < 11) 

30 PRINT PAPER S,AT 3,0; INK 0 
; a*;AT 5,0; INK 2;bí;AT 7,0; INK 
0 ;a*,AT 9,0; INK 2;b* 

9S BEEP .005,-15 
100 PRINT PAPER 0:AT 13,0; INK 
7,e*,RT 15,0, INK 2;h|;AT 17,8; 
INK 3;9«;AT 19,0; INK 2;h« 

110 IF a«3 OR t«7 THEN LET b«b + 
1: IF b«3l THEN GO TO 3000 
110 IF «b 16 OR 4«9 THEN LET b = b 
-1: IF b«0 THEN GO TO 3000 
120 GO 8UB 200 

130 IF INKEY0«"7 ,> THEN GO TO 10 

a ?a0 if xNKBYB«"t" or inkeyi-^s" 

THEN GO SUB 300 

160 IF *-3 OR *-7 OR U>11 AND 
4 (21) THEN PAPER 0 

161 IF 4>5 OR 4-9 THEN PAPER 2 
IF 4*11 OR a*21 THEN PAPER 


L i «3: 

REM NiVtl 


10 DIH h(8>: GO SUB 9000; REH 

Con i«nzo 

20 LET ft«0: LET 
30 GO SUB 7600: 

36 LET fr«0 
4.0 GO SUB 7O00: REM Pantalla^ 
50 LET t*100: LET ««21: LET b« 
16: PRINT AT 8,b; INK "HT 
60 REH Bu c le principal 
65 BEEP .005,-15 


162 

1 

153 

160 

500 

180 

200 

201 

202 

203 
000 

204 


PRINT AT 4,b 
IF INKEY*«"6 


l, 


INK *;"0” 
THEN GO SUB 


GO 

IF 


TO 60 
a «21 OR 


a=ll THEN RETURN 


90 TO 200+a 

RETURN 

IF a* tb + 1) •’ 

90 TO 202 


THEN 90 TO 3 


























miéndose su vator en la pantalla. 
La línea 67 comprueba si ha finali 
zado el tiempo. 

Líneas 70-/20 

Rutina de movimiento. Las lí¬ 
neas 70 y 80 actualizan los valores 
del string para simular el movi¬ 
miento de izquierda a derecha y de 
derecha a izquierda. Las líneas 90 
a 100 imprimen los objetos en sus 
nuevas posiciones. Las líneas I 10 
y 115 verifican si la rana se en¬ 
cuentra encima de una tortuga o 
encima de un tronco. 

Lineas ¡30-180 

Rutina de movimiento de la 
rana. Comprueba si se ha presio¬ 
nado una de las teclas del cursor 
para desplazamientos a la izquier¬ 
da. derecha, arriba o abajo. El co¬ 
lor del PAPER se activa depen¬ 
diendo de la posición de la rana. 


rrmoMJüs 

nía lia. Líneas200*219 | 

fl m Q11 _ D nti nn .L'k ti i\i-i n ^ i Áh .J I „ ’PUft l r 0000O0O U i d 3 S 3 


Lineas 200-219 

Rutina de verificación de la 
rana. Detecta si ha chocado con un 
coche o un camión o si ha caído al 
agua, en cuyo caso se pasa el con¬ 
trol a la rutina de muerte de la 
rana. 

Lineas 300-330 

Rutina que comprueba si la rana 
todavía se encuentra en la panta¬ 
lla. incrementando o decremen- 
tando “b” si el movimiento es ha¬ 
cia la izquierda o derecha respecti¬ 
vamente. El color de PAPER se 
activa dependiendo de la posición 
de la rana y la línea 320 imprime 
la rana en la nueva posición. 

Lineas !000-1090 

Rutina de movimiento ascen¬ 
dente de la rana. La línea 1015 
comprueba si se ha llegado al final 
de la pantalla. La línea 1017 llama 
a la rutina de “choque con obje- 



IF bt <b + l) ■ ' 


£06 
000 
206 
207 
209 

213 
3000 

214 
218 

3000 
216 

217 
3000 

218 

219 GO TO 216 

300 XF 4-3 Oft 4-7 
* <21) THEN PAPER 

301 IF a-5 OR •* 


GO 

GO 

GO 

IF 

» 

GÜ 

IF 


TO 202 
TO 203 
T0 206 
• 6 tb + 1) 

TO 202 
h« íb + 1) 

TO 202 
«•Eb+1) 


o' 


< >■ 


o 


RETURN 


THEN GO TO 3 


THEN QO TO 


THEN GO TO 


THEN GO T0 


OR (a>11 RND 


© 


1090 
1600 
a < 21) 
1601 
1502 
1 

1603 

1605 

1610 

1640 

1550 


PRINT AT 
6; XNK 0, 


16 -L 


1080 LET ft-1+10: 

EN STRÉ %: PAPER 
GO TO 60 
XF a >3 OR a «7 
THEN PAPER 0 

IF a*5 OR a«9 THEN PAPER 2 
IF a <*11 OA a *21 THEN PAPER 


OR ta>ll AND 


302 XF 


a«u 

;nt 


TH 


OR 4-21 


EN PAPER 
THEN PAPE 


303 PRIN 
310 BEEP 
(■"6" AND 
b >01 

320 PRINT AT i,b; XNK 4; 

1; PAPER 0 AND 4>11 AND 4 
PÉSR 5 AND a <lli "8" 

330 RETURN 

XF 4-3 OR 4-7 OR <4>11 AND 
THEN PAPER 0 

IF 4-6 OR a*9 THEN PAPER 2 
IF 4-11 OR 4-21 THEN PAPER 


fiT i b 1 11 *' 

.01,10:' LET b*b+lINKEY 
b <311 - t INKEY |- ,, 5 '■ AND 


PAPER 
<211 PA 


1000 
a <211 
1001 
1002 
1 

1003 

1010 

1016 

1017 

1080 


! Ér T 6 e s*i! 


PRINT RT 1,1 

LET 4-4-2: I 
IF 4-1 THEN 
GO 8U6 200 

PRINT AT 4,bl XNK 4; PAPER 
11 PAPER 6 RND 4>11 RND 4<2ll PR 
PER 6 AND a <11;"6" 


PRINT AT 4,bl" " 

IF 4«21 THEN RETURN 
LET 4-a *2: BEEP .06,10 
GO SUB 200 

PRINT AT 4,b; XNK 4j PAPER 
11 PAPER 0 AND 4>11 AND a<21, PA 
PER S AND a <11;“6" 

1590 GO TO 60 

2000 XF b < >2 AND b<>8 AND b016 
AND b < >23 AND b<>29 THEN GO TO 3 
000 

2001 IF ATTR í1,b)-44 THEN GO TO 
3000 

2002 LET S-ft +100; PRINT AT 0,15- 
LEN STR| 4J PAPER Bl INK 01» 

2003 PRINT AT l,bl INK 4; PAPER 

2¿05 LET fr-fr+l: BEEP .08,16: B 
EEP .05,20 

2010 XF tr -6 THEN GO TO 2200 
2020 GO TO 50 

2200 PRINT AT 11,10; INK 7l BRIO 
HT ti PAPER l;"Punt. "it*l« 

2210 FOR f-0 T0 3: BEEP .1,2: BE 
EP .1.4: BEEP .1,6: BEEP .1,6: B 
EEP .1,4: BEEP .1,0: NEXT t : LET 
»«» 4-1000 

2216 LET i■» + (t «101 : PRINT AT 0, 
16-LEN 6TR* »; PAPER 5l INK 0;» 
2220 FOR í-1 TO 6: FOR n«l TO 5: 

BEeP ■01, f +n: NEXT n: NEXT f: G 
O TO 30 
















tos . La línea 1050 imprime la 
rana en la nueva posición, y la lí¬ 
nea 1060 incrementa e imprime la 
puntuación. 

Líneas ¡500-1590 
Rutina de movimiento descen¬ 
dente. Es análoga a la anterior, con 
la diferencia de que no existe veri¬ 
ficación de la llegada a la parte su¬ 
perior de la pantalla. 

Líneas 2000-2020 
Rutina de comprobación de es¬ 
tar en casa. La línea 2000 com¬ 


prueba si se alcanzó una posición 
correcta (un hueco) a! llegar a al 
extremo superior de la pantalla. La 
línea 2001 comprueba si todas las 
posiciones llegada están llenas y la 
2010 comprueba si todas las ranas 
han llegado a las posiciones fina¬ 
les. 

Líneas 2200-2220 

Rutina que entra en funciona¬ 
miento cuando todas las ranas han 
llegado a casa. La linea 2200 im¬ 
prime el incremento de tiempo 


conseguido y la linea 2210 hace 
sonar una pequeña melodía e in¬ 
crementa la puntuación. 

Linas 3000-3040 
Rutina de muerte de la rana. La 
línea 3010 imprime una rana in¬ 
termitente y la 3020 imprime las 
vidas que quedan. La línea 3030 
comprueba si existen vidas. 

Linas 4000-4100 
Rutina de fin de programa. La 
línea 4020 realiza un reset del ni¬ 
vel de dificultad. Las líneas 4030 y 





ti , * j . Ai-ir» Bj v 

733® PRINT AT 0 
704» FOR f*12T 


STR* »¡t 


INK 6; 


FLASH 

0,83; 


1,-85: 6EE 


3000 REM Rccidtntt 
3010 PRINT RT *,bj 
1, BRIGHT l; "H" 

3030 LET Li*U-l: PRINT mT 
PñPER 5; INK 0;"Uid*s ’“;U 
3030 IF Li<»0 THEN GO TO 4000 
3040 FOR f «30 TO 1 STEP -1: SEEP 
.05,1: NEXT f: PRINT AT «,b; IN 
K 3:"É“: GO TO 50 
4000 REM Fin 

4010 BEEP .1,30: PRINT RT 1,11; 
FLASH 1; PAPER 6; INK 0;"Fin d«L 
Juego" 

4080 BEEP 1,-10: BEEP 
P 1,-40: LET tiv«l 
4030 LET h(B)»ft: FOR f* 1 TO 6: F 
OR n»i TO 5: LET Z«h(n): LET Zl* 
h (n+1) : IF Z(il THEN LET h (n) Hl 
: LET h (n+1) mi 
4040 NEXT n: NEXT f 
4050 PAPER S: BORDER 5: CLS : PR 
INT RT 8,0J INK 8;xt: FOR fm 1 TO 
5: PRINT RT íf*2>+5,10;f;" - "; 
h ( f) : NEXT f 

4060 FOR f>l TO S: IF h(0«s THE 
N PRINT RT (US) +5,10; FLRSH 1; f 
; ■* - h i H : GO TO 4080 
4070 NEXT f 

4030 PRINT RT 80,4;"Pr«*iont CUi 
LRUi«r t•c ti" 

4090 IF INKEYt*"" THEN BEEP .003 

,RNOí3: GO TO 4090 

4100 BEEP .01,40: GO TO 8® 

7000 REM Pan tu l l* 

7010 BORDER 6: PAPER 
7R1NT 


ÍS-LEN 


PAPER 5; RT 3,0; INK 0 
:**;RT 5,0; INK 8;bl;AT 7,0;EXP 
0; »|; RT 9,0; INK 8; bj 
7060 PRINT PAPER 0;RT 13,0; INK 
7;«*;RT 15,0; INK 2;h(:RT 17,0; 
INK 19,0; INK 8; h$ 

7070 ÉtífURN 

7500 REM Ni V•l 

7510 IF Ltv > 3 THEN RETURN 

7580 GO SUB 7500+i100*ltv) 

7530 LET Ltv»ltv+1: RETURN 
7600 REM Ni V* L 1 



yüji 

LET 5T?* 

j|| j|( 

7680 LET h $ = " 

Ir* 

7690 RETURN 
7700 REM Ni V4 
77i^gr aí=- 

¡^_^r b**" 




RETURN 
REM Niu« 
LET b««“ 



7830 

m 

7690 
3000 
3010 
USR ' 
3080 



mm 




MI Mi 


m 




«MI 


INI 


Mi Mi 




IN 


READ 4: POKE 


LET 

Mi MI 

Eturn 

REM U.D.G. 

FOR f*0 TO 7: 

■*"+f,4; NEXT f 
DATA SIN 10000311,BIN 01011 
10,BIN 01111110,BIN 11111110,BIN 
lllllllO,BIN 01111110,SIN 01011 
100,BIN 10000011 

3030 FOR (»0 TO 7: RERD 4: POKE 

USR "b"+f,«: NEXT f 

3040 DRTfl BIN 00011111,BIN 00111 

111,BIN 00111111,BIN 01111111,61 

N 01111111,BIN 00111111,BIN ©011 

lili,BIN 00011111 

3050 FOR f =0 TO 7: RERD l: POKE 

USR "C' + f,*: NEXT f 

3060 DATA BIN 11111000,BIN 11111 

000,BIN 11111100.BIN 11111110,61 

N 11111110,BIN 1Í111100,BIN lili 

11®0,BIN 1111100® 

3070 FOR f *0 TO 7: RERD 4: POKE 
USR "d" + f,•: NEXT f 
308® ORTA BIN 111Q0111,BIN 10111 
01,BIN 11111111,BIN 01111110,BIN 
11011011,BIN 11100111,BIN 01111 
110,BIN 10000001 






















ff 


4040 actualizan [a tabla de re¬ 
cords. Las líneas 4050 y 4080 im¬ 
primen el título y la tabla de re¬ 
cords y ia linea 4090 realiza diver¬ 
sos BÉEPS en espera de que se pre¬ 
sione una tecla. 

Líneas 7000-7070 
Dibujan la pantalla inicial. 

Líneas 7500- 7890 
Rutina de asignación de! núme¬ 
ro de coches, camiones, troncos y 
tortugas que aparecerán en la pan¬ 
talla. La variable “lev” de la línea 
7520 origina una bifurcación 


gún el nivel elegido. Si desea aña¬ 
dir un nuevo nivel al juego, puede 
cambiar el “3” de la línea 7510 
por “4”. Después añadir las 
guientes líneas: 



KMls 


Sl- 


7900 

7910 

7920 

7930 

7940 

7950 

7960 


REM 

LET 

LET 

LET 

LET 

LET 


RETURN 


LEVEL 4 

bS - 
eS * 
gS = 
h$ = 


i roncos 
tortugas 
camiones 
coches 

coches de carreras 


se- 


Pueden colocarse todos los ca¬ 
racteres que se deseen, pero las va¬ 
riables habrán de contener siempre 
32 caracteres. 


■ 


RERD i: POKE 


POKE 

11111 

11111 

11111 

POKE 

11111 


aa«a fqr f«o to 7 
USR "I”+ f,a: NEXT f 
3100 DRTR BIN 0 , BIN 01000010.BIN 
01011010,BIN 01111110,BIN 00111 
100,SIN 01111110 iBIN 01111110,BI 
N 00111100 

9130 FQR f=0 TO 7: RERD 4 : POKE 
USR "9 " + f ,a: NEXT f 
314.0 DRTR BIN 00111100 ,bin 01011 
101,6IN 01011111,BIN 01011101,BI 
N 01011101,BIN 01011111,BIN 0101 
1101,SIN 00111100 
3150 FOR f=0 T0 7: RERD 4: 

USR "h 11 + f ,4 : NEXT f 
3160 ORTR BIN 11111111 BIN 
111,BIN 0,BIN 11111111,BIN 
111,BIN 0,BIN 11111111,BIN 
111 

3170 FOR f-0 TO 7: RERD 4: 

USR "i"+f , 4 : NEXT f 
31B0 DRTR BIN 11111111,BIN 
111,BIN 00000011,BIN 11111111,BI 
N 11111111,BIN 00000011,BIN lili 
lili,BIN 11111111 
3190 POR f ai0 T0 7: RERD «: POKE 
USR "j" + f,4: NEXT f 
3S00 DRTR BIN 00101110,BIN 01101 

110, BIN 01110110,BIN 01111111,81 
N 01111111,BIN 01110110,BIN 0110 
1100,BIN 00101110 

3210 FOR f =0 TO 7: RERD 4: POKE 
USR "K" + í,4. NEXT f 
3220 DRTR SIN 00000010,BIN 00111 
010,BIN 10010010,BIN 11111110,BI 
N 11111110,BIN 10010010,BIN 0011 
1010,BIN 00000000 
3230 FOR f*0 TO 7: RERD 4: POKE 
USR "L " + í ,4: NEXT í 
3240 DRTR BIN 0,BIN 00111011,BIN 
00010010,BIN 00111111,BIN 00111 

111, BIN 00010011,BIN 00111011,BI 
N 0 

3250 FOR f*0 TO 7: RERD 4: POKE 
USR “m“ + f,4: NEXT f 
3260 DRTR BIN 0,BIN 11011100,BIN 
11001000,BIN 11111100,BIN 11111 
100,BIN 11001000,BIN 11011100,61 
N 0 

RETURN 

REM comitnzo 

.ET X| 




Líneas 8000-8500 


Rutina de definición de caracte¬ 
res gráficos. 

Líneas 9000-9080 

Rutina de inicio de j uego. La va¬ 
riable del nivel de juego se iniciali- 
zará a uno. La línea 9030 imprime 
el título del juego en grandes ca¬ 
racteres y hace sonar una situación 
de inicio del juego. 

Línea 9090 

Rutina de grabación en cassette. 


LfWkf 

9040PRINTRT 7,11;"PUNTURCION"; 

I 1 * Pi»- *»Uo adatarua.'* 
; RT il,2; ,l i00 ¿t*. por rana tn c 
asa . ;rT 13,a; r ' 1000 pts. todas l 
as ranas an casi. " 

9050 PRINT RT 17,1;"utiliza tas 
laclas dat cursor. 1 : GO 5UB S000 
■ PRINT RT 20,3; FLRSM 1; BRIGHT 
X; ' PULSE CUALQUIER Té6lR " 
9060 IF INKEYJa"" THEN BEEP .1,R 
ND # 10 + 40; GO TO 9060 
9070 BEEP .1,2: BEEP .1,4: BEEP 
.1,6: BEEP .1,6: BEEP .1,4: BEEP 
. 1,0 

9030 CLS : RETURN 


8500 

9000 



F 



PRINT 


PER 6 

0: INK 


CLS 


BEE 

__ _ - 1 : 

05, f : NEXT f: PRINT RT 6, 


10: FOR f ■é0 , TO” , 30“ÍTÍp 


ÍMTQ 

le 


LEUEL 


7620 

RRRfl 

LET 

rSrr" 

RRRR 

RRRR 

7650 

GHHI 

LET 

a $■" 

GHHI" 

GHHI 

GHHI 

7670 

LM 

LET 

l 

LM 

LM 

LM 

LM 

7680 

LET 

h|-" 

JK 

JK 

JK 


0 KCn LCVl 

mfc 1 '-' 

3 LET b|«' 


JK JK 
7690 RETURN 
7700 REM LEUEL 
7710 

7720 
RRfifl 

7750 LET ala 
GHHI GMHI 
7770 LET g|a 
LM LM 
7780 LET hl> 

UK JK 
7790 RETURN 
7800 REM LEUEL 
7820 LET bt-" 
RRRfl 

7650 LET «!-" 
GMKI GHMI " 
7870 LET g|p" LM 
LM LM LM " 
7660 LET h|*” JK 
JK JK LM “ 
7890 RETURN 


RRRfl 


GHMI 


RRRR 

GHHI GHHI 


LM 

i 

JK 


LM 


JK 


LM LM 
JK 


GHHI 


RRRR 

GHHI 


JK 


GHHI 


LM 


JK 


LM LM 
JK 


JK 


Detalle de los caracteres gráficos definidos para los 
tres niveles de juego. 





















fidbXQjjftlQj 

Según la mitología, Ariadna 
supo salir del laberinto desenfra¬ 
ilando un hilo. De ahí el nombre 
de este programa-laberinto en el 
que dispone de dos opciones: ver 
los pasillos por los que pasa o ca¬ 
minar totalmente a oscuras. 

Según el nivel de dificultad ele¬ 
gido (dispone de 10) podrá acceder 
a los pasadizos. Por supuesto pue¬ 
de colocar cerca el esquema del la¬ 
berinto, pero el juego no resultaría 
interesante. Le sugerimos entrar en 
el pasillo desconocimiento si ten¬ 


drá salida o tendrá que volver so¬ 
bre sus pasos. Con 500 movimien¬ 
tos, unos cinco minutos, podrá sa¬ 
lir sin dificultad. 

No se engañe con los gráficos 
que le ofrecemos con el listado. La 
pantalla permanece totalmente os¬ 
cura. a excepción de la parte dere¬ 
cha donde se encuentra un reloj, 
un señalizador de movimientos in¬ 
correctos y un contador de movi¬ 
mientos. Para ajustar el reloj se ha 
de cambiar la lina 105 por t = t + 
(algo más de ó), igualmente la línea 
108. Para que la manecilla corta 
actúe como minutero, las líneas 
111 y 113 deben ser modificadas 
en /12 y /60 respectivamente. 


i m 

4 REH 


8 REH 
7 30 


ILtbtrinto 

dt Rriadnsl 

© MIO 

1994 | 


© «• 


10 REH 


SUB 


50 


La 


ía 
la p 


lorsíií 

PER 0: 00 


0R0ER 0: INK 0: C 


8fi 00 SUB 4000 

ai LET Mae 
aa INK 7: PLOT 900,0: ORRU 47, 
0: ORRU 0,178: DRRU -47,0: DRAU 
0,-178 

33 PLOT 810,8: ORRU 7,0: ORRU 
0,118: ORRU -7,0: ORRU 0,-118 
88 LET x«838: LET y■180: LET 4 
«88: 55 SUS 7000 

>? Í9R -1 


9 1 CMR38 

'34 PRINT PAPER 0iRT •+l,b;CHR* 

3f 


38 LET b«ÍNT (P 
33 PRINT PAPER 


1 , CHR( 38 

40 INK T 0? PLOT 0,0:DRRU 
ARAW 0,178: ORRU -807,0: 


.5ÍW 

46 P 


7,0 

AU 


RINT RT 81,13) 

LET X«107: LET g>08 
LET t-0 
70 GÚ TO 100 



INK 9j FLRS 


108 LET t«t+3_ 
100 LlT tl«*-3 
110 LET a«t/94.¡ 


113 


84770 

llí LET b-«/18 
118 L|T *l«tl/94.84776 
T blMÍ/ía 
ftX«l§*ÍXN 4 
lUilf 
«Xi 
;T i»y 
T sxi«: 


Ll 

Ll 

L( 

I-I 

l| 

4 Ll 


lis LET 

186 LET i»Xl«í$*] 

Í 87 LET iyl«lS«< 
30 ir 1 » >180 TMI 

au0 i““ 

R 1 


,í ; 


TO 8080 


i 


O 

ÜUER 


PLOT 838,160: 
PLOT 838,160: 
INK 9 


ORRU »xl,»gl 
ORRU nxi,ngl 


PLOT 838,160: ORRU »x,»g 


II „ „_ 

IU ptST S&TiiK?!? ÍÍLSW 

R 0 ¡ 6 “ 

803 
1000 
1010 


1080 LET 
1030 IP i 


TO 100 

REH 

LET gil 


LET xl«x 

|«INKEY0 

■ *'R" THEN LET 
■"*" THIN LET 


í¡:f 


1031 IP ií«"l " THEN 
1038 IP i ■ *'> " THEN 
1033 IP li«"i" THEN 


1031 
104¡ 

X «X1: Ll 

1080 IP 


<iV l 


sí*y+ 1 
y-y-i 
LET x«x+l 
LET X «X-1 
THEN LET (í-fi + .l 
(X , u) < >0 THEN LET 

yD x>103 3 nO 0 X<118 


D SUB 
-0T 0 

Sturn 


u 

UER 1, 


INK 7;x,y 


( prinT' ’lfl i" 

MLir 4* C 
-a 

ER 7: 

1030 00 SUB 4( 


llbtrinto.": PAUSE 
80R0ER 7: INK 0: C 

00 


1040 POR n«0 TO 88 

l|jjS PRINT RT 81 , 31;CHA• 38,CMR* 


8080 NEXT n 
8060 INPUT “Otltt 

(»/rv)7 "jnÉ 

* 


809 

81~ 


M 


30 

3010 LET 
3080 POR 


IP n i«'’n " 
TO 10 


jugir dt nutvo 
THEN STOP 


Ffí’TTKrrffOTTOTroBCT 

n«l TO 14 
ir “ 


ÍNK 7BRIOHT 1; RT 64 


3030 PRINT 
n,30Jb>(ni 
3040 NEXT n 
3060 POR n«? TO 80: PRINT RT n,3 
9i" NEXT n 

3070 RETURN 

4010 RESTORE : POR Oafi TO Bl: kí 

RO 00: PRINT «0: NEXT n 
“TTURN 

9: INPUT "Nivtl, (1 * 19 

























rawcts 


El señalizador de movimientos 
actúa cuando el pixel inmediato al 
cursor está ocupado por una pa¬ 
red. Hay casos en que esta pared 
no se percibe en la pantalla por ha¬ 
llarse frente a un pasadizo abierto 
aleatoriamente. 

Los movimientos gastados se vi¬ 
sualizan en un control de barras. 
En principio dispone de 1.200 mo¬ 
vimientos, lo que al principio re¬ 
sultará insuficiente. Si le parece 
excesivo puede alterar la línea 138 
por un número mayor de 120 o la 
1035 por m = m + .05 para dispo¬ 
ner del doble. 

El control se realiza mediante Oí 
Z. Peí. 


Análisis del programa 

Línea 12 

Subrutina 9000. Gráficos defini¬ 
dos. 

Líneas 15-100 
Preparación de la pantalla. 

Lineas 100-200 

Bucle principal (funcionamien¬ 
to reloj). 

Línea 141 

Salida a subrutina del juego 
(movimientos, etc.). 

Linea 170 

Avance del contador de movi¬ 
miento de barras. 

Lineas 1000-1090 
INKEYS. 


Línea 2000 
Sal ida del laberinto. 

Línea 2080 

No ha logrado salir del laberin¬ 
to. 

Linea 2090 

Fin. 

Línea 3000 

Control de movimientos inade¬ 
cuados. 

Las lineas 8000 a 8061 se repi¬ 
ten con los caracteres gráficos sin 
definir para facilitar su introduc¬ 
ción. 


Autor: fgor Beades 


16K. 


5001 IF rií<0 OR ni >10 THEN OO TO 

8000 LET ní-XNT ni 
*500? PftiNT RT B,®j "Dttta contar 
con ti vantaja da l hito <a> o co 
nfíar tn su stntidoda la orttnta 
Cion <£> 7": RRUftE 0 
SggS IF INKEY0*”P 11 THEN LET tfc«0 

8009 IF INKEY 8 O"p" THEN LET tía 

8080 

ros _ 

7005 QUERm 
7005 LET r«t + 8 

7008 LET S-S-l 

7009 ir t<0 THEN RETURN 

7010 LET xlaEXP (.5*LN Cr-itBU- 

7011 let in«xua 

7010 LET ft l «X-Xl 

7013 ir Sl<0 THEN LET inalntil: 

LET SIb0 

7015 PLOT DRRW in,0 

7017 ir y-S<0 THEN OO TO 7000 

?!!? ofi,,u ln '* 

7000 RETURN 

7100 5RUE "flrinna" LINE 1 
7800 STOP 

oStr a. 1 ' -- ' j 

t 



ORTR 

,,. i r 

BTaa ortr 

11 r 

83 ORTR 
f0 [* ORTR 




. ORTR 

I I 11 

5 ORTR 
7 

r* Ta 

Sjr- 



ORTR 
ORTR 

8é8é PL0T 0UER 
8081 RETURN 
0060 PLOT QUKR 
6061 RETURN 

lili for na ' 6" T C y 


rm ri 

iiumLii_ il ltz 

"IIIII LZ L~l I ~ ~ ~r 

■iim _TLn i l en rzzrj 

im T_n i jtju i r“«r 

’11 I LL_T I "LZTZJ I LZJ 

“11 1:—: i i "" i r- 

"I I ZZ1 - 

"I- HU c 



1¡ 

1¡ 


INK 0; x 1, y l 
INK 5; x1,y 1 


9011 P0KE 


b M +n, 18 S 


5®n ORTR 
SgTa ORTR 
8013 ORTR 
8514 ORTR 

n il r 

Í01S DRTR 

■ 11 r 

8510 ORTR 

ORTR 

I" 

851,8 ORTR 

[010 DRTR 

II" 



r 


ir 


i r 


c—— i L_ I II 

ii z 11 jz n i l ii 

11 _n_r-n_r j i n j 

M n —- cutli i l z 
miirjizzzjim 
mi i L r_rznrzj i 
i ni n nu"j 
miLJuzzr “L_nrz 
i ii in 3 — znr 














































V 


n& ycuvvcts 


903? PQKS UBR " t."+n,9 

9038 POKC USR "»"+n,l 

9039 POKE USR "n"+n,iae 



9040 NEXT n 
9048 POKE USR 
9060 RETURN 


"l",866 



6011 DATA 
FFFCE" 

8019 DATA 
CACEE" 

8013 DATA 
N MEE" 

Ífií B s flT * 

8015 DATA 
COMEE" 

8016 DATA 
1ADEE" 

8017 DATA 
ADUCE" 

6018 DATA 
SLMEE" 

8019 DATA 
CEIEE" 

8090 DATA 
8 OCE" 

6091 DATA 
CIJEE" 

8089 DATA 
BFMEE" 

8093 DATA 
FC6ME" 

8094 DATA “EEEEACHCEBMEt.DEBMIRF 
FDJEE" 

8095 DATA 
FFDCE" 

8096 DATA 
ASAME" 

809? DATA 

CCCE" 

8098 DATA 
IIEEE" 

8099 DATA 
FFOEE" 

8030 DATA 

8031 DATA 
FFFFD" 

8050 PLOT OUEfi lj 

8051 RETURN 
6060 PLOT OUER li 
8061 RETURN 
9000 REM 


"flPffFffF PT FFFLFFFFFP F 

"EAFFFFFFFFFFCCAFFFFFF 

"EEALCHLLLFFFDEBFCACÜA 
"EEN FMENOAFF FCEBOME 
"EEN_DJB_DR_FCIROEEJNO 
"EEEACNFLLMHCZJfiCECB F 
"EEEEEEADCNF_F FOEEJNC 
"EEEEEBMA_DAFCEAFDEBDE 
"EEEEEJN LFDADEBCM_CMD 
"EEEEEBDEXAFDR CBFCEAF 
"EEEEEACNQNFF FFMEEJ 
"EEEEEN CBFCB OAFDEB_ 
”EEEEEBDIBFF_OEH_LFDRC 
"EEEEBFFFCOÜACEACEALDB 
EEEEACHCEBMEB_DEBMXAF 
EEEÉEBFMBCENLFF F_FDA 
EEEN_FCBCEEBMHCEAFFLD 

EEENCA_QENDUBFDEEAI_L 

EEE XB_CAMNCBFLFDEEBFD 
EEBFFFDB„DBFCIALDBFFF 
EBFFFFFFLFFCNLMBFFFFF 
BFFFFFFF_FOIB_DHFFFFF 
INK 0, x 1, y 1 
XNK 6; x 1, y 1 





SUQ 1NKEY* 


'■'^MOVIMlN, 

CORRECTOR 


INCORREC 


DI BU JO di 
CAMINO 


CONTROL OE 
BARRAS 
LIMITE f 


LIMITE 


DIBUJO 

BARRA 


SITUACION 
DENTRO DEL 
LABERINTO 


Organigrama. (Por 
error apareció 
en el número I en 
la sección de 
“programación 
a fondo"). 


HA EXCEDIDO 
EL LIMITE DE 
MOVIMIENTOS 


Salida del 
LABERINTO 


BUCLE 

.PRINCIPAL 


VARIABLES 

RELOJ 



Lineas de caracteres grádeos definidos. 



































































































ATENCION 

Nuevo Servicio Reparaciones 

Ampliamos tu Spectrum. 
Componentes Electrónicos. 

PLALEN ELECTRONIK 

C/ Antonio López, 115. 

TelS. 469 17 08 - 475 40 96 

¡SOMOS ESPECIALISTAS! 


1 Ordenadores personales Hard y Soft. 
• Cursos de Basic. 

Oficinas RENOVACION EN MARCHA, S.A. 
c/ E&proncetia, 34 - 2* int - MAORID-3 
Teléfono (91) 441 24 78 
Tienda REM SHOP 1 
c/ Gal Neo, 4 - MAORlD-15 
Teléfono (91) 445 2& ftS 


BOUTfQUE INFORMATICA 

* Ordenadores Personales. 

* Micro-ordenado res de gestión, 

Todas las novedades en: 

Programas. - Periféricos - libros 
(nacionales y de importación] 

Para: Spectrum - Dragón - Base 64 
Spectravideo - Oric -Commodore, etc, 

C/ San Vicente, 53, ALICANTE, Tel. £966) 21 55 66 


FACTURACION SPECTRUM 


Un .programa que le permite realizar: 


reciuras En un solo programa de fácil 

Pedídoa lTlan0f(i c^c ín mierodrive- cn-n 5?Q 

A barañes Mehams de clientes, procedo 

SoZ de Stock, r * s ’ «pillos. * c - 16.000 

CoptatiNdad W 11.U0 pías. 
Equipo de gestión: Spectrum. 
impresora lamaño papet grande, 
in tortee* microdrivc. ¡nleiface 
1. papel programa facturación, 
contabilidad: 19&.QOO pías 

ALSI, S. A. Antonio López. 154. 

Tel. 91/475 43 39. 28026 MADRID 


ULTIMO AVISO- 


Especialistas en software para Home Computers, 
a sqc lados con primeras firmas internacionales. 


^Eres aficionado a la programación? 
¿Dominas el código máquina? 

Tienes programas originales? 

^Puedes escribir un buen juego? 
¿Quieres ganar dólares, libras, francos o 
pesetas desde tu casa, en tus horas libres? 


¡NO TE LO PIERDAS! 


Contacta ¡nmeditamente con: 


CIBERCOMP, S. A. 

Tels. (91) 200 21 00 
(91) 759 22 44 


ANUNCIESE 

por 

MODULOS 


MADRID 

( 91)7339662 

BARCELONA 

( 93)3014700 



ESPECIALISTAS EN SINCLAIR 
SAQUELE RENTABILIDAD AL SPECTRUM O 


PROGRAMAS EN MICRODRIVE ZX PROGRAMAS EN CASSETTES 

— ^ TIQN : EDUCATIVOS: 

Contabilidad (P.N.C.) 12.000 pts. 

Base de Datos 6.000 ,h Geografía I 1.8< 

Proceso de textos (español) 6,500 Geografía II 1 -Sí 

Cale (hoja electrónica) 4.000 11 Geografía 111 1.8í 

Control de stocks + facturación 6.000 " Matemáticas I 2,0< 

P. ESPECIFICOS: Matemáticas II 2.Oí 

Agente de Bolsa 6.500 " Curso de Contabilidad I 2.2Í 

Administradores de Fincas 10.000 Curso de Contabilidad II 2.2i 

Mediciones y presupuestos 19.500 " Superdesarrollos 1X2 3.91 

También disponibJes en cassette (imprime boletos con Impresora Adrnate) 

ORDENADORES: Spectrum, Spectravideo, Commodore, Amstrad, Oric, Katson... desde 1.239 ptas 
IMPRESORAS: Star New Print, Setkosha desde 774 ptas. al mes. Monitores. Accesorios 
CINTA VIRGEN ESPECIAL ORDENADOR C-15,.. 125 ptas. (pedido mínimo 5) 

ENVIOS CO NTRA REE MB OLSO. GIRO O TALON CONFORMADO 


Tel. 242 24 71 - 28013 MADRID 



























jtana íecto^ieé de lodospectrun 
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Ha seleccionado para usted cuatro excelentes programas de juego para su ordenador SPEGTRUM. 


Diviértase con ellos y, además, ahorre dinero con esta oferta única y exclusiva para los 
lectores de esta revista. 





DR, FRANKY 

Solitario, m las mazmorras 
encantadas y oscuras de su castillo, 
el Dr, Franky intenta 
desesperadamente convertir el 
monstruo que él ha inventado 
en un ser humano. Parece simple, 
pero no lo es. Se trata de encontrar 
los frascos que contienen las 
productos químicos que dan la vida. 
Y no debes olvidar la fuerza de lo 
sobrenatural. Las gentes que han 
sido transformadas en monstruo 
quieren vengarse. 

Precio: 1.550 ptas. 


notamos en la nueva temporada de 
carreras. Sólo piensas en el derby. 
Diriges una cuadra de caballos, 
debes entrenarlos para el gran 
día. Compra y vende caballos, si es 
necesario, pero cuando llegue la 
carrera trata de dominar tu tensión. 
En los últimos 200 metros 
descubrirás si has hecho bien tu 
trabajo. El ordenador te ayudara, 
pero todo dependeré de tu buen 
juicio. 

Precio: 1,550 ptas, 





Tras meses buscando el Tempolo 
templo de Queizacoatí para acabar 
atrapado en él. Tus compañeros han 
sido asesinados. Tu única manera 
de salir os atravesando la red de 
pasadizos secretos construidos por 
hs aztecas, Pero \ atención! no 
incurras en 1 provoques la 
veganza de los dioses. Puedes 
consultar tu mapa, pero cada vez 
que 3 o haces so desintegra y debes 
comenzar de nuevo tu desesperada 
búsqueda de salidos. Buena suerte. 
Precio 1,550 ptas. 



La Tierra ha caído en el 
oscurantismo. Nigromante y sus 
demoníacos sirvientes la han 
conquistado, esclavizando a los 
humanos. Tú eres el último de los 
brujos de otra época y debes 
viajar a Stonehenge para 
rescatar a otros tres brujos, a 
quienes necesitas para vencer a 
Nigromante. Se agota tu tiempo, 
¿Podrá salvarlos antes de que se 
hayan convertido en piedra? ¿Antes 
que la Tierra se hunda eternamente? 

Preció; 1.550 ptas. 


Recorte y envíe este cupón HOY MISMO a: 

INFQDIS, S.Á' 

Bravo Morillo, 377-5. 

28020 MADRID 


Usted puede comprar cualquiera 
de estos cassettes a su precio 
individual de 1,550 Pías, 

Pero también puede adquirir el 
lote de 4 por sólo 4.650 Pros, 
y AHORRARSE 1.550 Pías. 

O sea, cuatro cassettes por e]j 
¿recio de tres. Aproveche eg 
derla limitada. 



:„J CUPOn Df PEDIDO 

Envíenme a mi domicilio, al precio de 1,550 Ptas cada una, más 95 Ptas. de gastos, la cassette o 
cassettes que le índico a continuación marcando con una (X¡ en el casillero correspondiente. 
Queda bien entendido que pidiendo las 4 cassettes obtengo un ahorro de 1.550 Pías., lo que me 
supone UNA CASSETTE GRATIS (Sólo pagaré 4.650 Ptas. más 95 Ptas. por gastos de envío). 

□ RACDVG MANAGER □ QUETZACOATL □ DR. FRANKY □ SORCERY 
O Las 4 cassettes, en las ventajosas condiciones de AHORRO para mí (4.G5Q Ptas.). 

El importe lo abonaré: 

POR CHEQUE D CONTRA REEMBOLSO □ CON TARJETA DE CREDITO □ 

American Express Q Visa fl Interbank _¡ Fecha de caducidad ___. 


Número de mi Tarjeta 
Nombre__ 


Dirección 
Ciudad _ 


DP. 


Provincia _ _ _ _ _ 

Cada envío llevará 95 Ptas, en concepto de gastos. 




















































El misterio 

del boxeador 
que no quería pelear 


En el número 2 de la revista, dos 
lectores escriben con la misma 
pega: no pueden controlar al bo¬ 
xeador del programa Boxeo. Una 
verdadera lástima, porque el juego 
es bastante bueno. Sin embargo el 
listado del programa es correcto, 
¿qué ocurre entonces? Pues que, 
como queda dicho en el artículo 
“Sintonice bien su Spectrum”, pu¬ 
blicado en el número l de TO- 
DOSPECTRUM, existen tres ver¬ 
siones de 1 ordenador. Esto es ver¬ 
dad.a medias. En realidad son 

cuatro: la versión 1, no comerciali¬ 
zada en España, y las versiones 2, 3 
y 3B. 

El software comercial trabaja 
igual en todas ellas, pero hay una 
curiosa diferencia. La función IN 
es distinta en la versión 3. Para 
comprobarlo no hay más que ha¬ 
cer PRINT IN 63486. si nuestro 
Spectrum es versión 2 ó 313 obten¬ 
dremos e! valor 255, mientras que 


si fuera de la versión 3 obtendría¬ 
mos el valor 191. 

¿Cuál es la explicación? Para en¬ 
tenderla abandonemos por un mo¬ 
mento el sistema de numeración 
decimal y pasemos al binario. Al 
leer una semifila del teclado con la 
función IN (ver el capítulo 23 de! 
manual), obtendremos un byte, 
formado como sabéis por 8 bits. 
Los 5 hits primeros de la derecha, 
es decir, del DO at D4, correspon¬ 
den a las 5 teclas de esa semifila: 
D4 es el correspondiente a la tecla 
más próxima a la parte central del 
teclado, y DO el correspondiente a 
la tecla más externa. Estos hits to¬ 
man el valor 0 si la teda está pul¬ 
sada y el 1 si no lo está. 

Hasta aquí todo es igual para to¬ 
das las versiones. Pero ahora viene 
i a diferencia: 

Los tres bits restantes, esto es 
D5. D6 y D7. no corresponden a 
ninguna tecla. Pero mientras que 


en las versiones 2 y 3B siempre va¬ 
len 1. en la versión 3 el bit D6 vale 

0 . 

Resumiendo, para el que no sea 
amigo de complicarse la vida: 
comprobad si vuestro Spectrum es 
de la versión 3 mediante PRINT 
IN 63486. Si el número obtenido 
es el 255. es de cualquiera de las 
otras versiones, mientras que si es 
el 191 es de la versión 3. Para que 
el programa de Boxeo funcione en 
esta versión, habrá que cambiar las 
líneas 400. 410, 500 y 510 de la si¬ 
guiente forma: 

400 1F IN 64510= 190 
THENGOSl B 1000 
410 1F IN 57342 = 190 
THEN GOSUB 1 100 
500 LET y = y -HIN 61438 = 1 75 
AND v < I 7) — (IN 61438 
= 183 AND y > 2) 

510 LET x = x+{IN 61438= 187 
AND x < 22)-(IN 63486 
= 175 ANDx > 7) 



, > IF 
)0 

418 IF 
1188 

458 IF g *X + 1 
N GO SUB £888 
588 LET 
<17) - iIN 
518 LET 
<22J -(IN 


IN 64518=198 THEN Gü SUB 


IN 57342*198 THEN GO SUB 


THEN IF RND > S K THE 


yzy+tIN 61438*175 RND y 
61438=133 ANO y>8) 
X*X+UN 61433*18? RND X 
63486*176 RND X>7) 




PUNTOS 

14 


lIEN HECHO- K .O 


RONDA 


& 


Htn ry 
PUNTOS 

4 


TIEMPO 
¡8: 32 
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Como veis, lo único que hemos 
hecho es restar 64 en todos los va¬ 
lores de la función IN, que en el 
listado anterior eran respectiva¬ 
mente 254, 254, 239, 247, 251 y 
239. 

Con este simple cambio el po¬ 
seedor de un Spectrum versión 3 
verá a su boxeador perder la timi¬ 
dez, moviéndose por todo el ring y 
sacudiendo a puñetazos a su rival. 

Finalmente, dar las gracias a 
José Ibáñez, José Salvia, Josep 
Marcos y Agustín Froufe, quiénes 
astutamente se percataron del pro¬ 
blema y nos escribieron simpáticas 
cartas. 


Enrique Fernández 





PSYTRÜN 

NUMERO 1 EN INGLATERRA 

Los mejores gráficos conseguidos 
para el SPECTRUM 4S-K. 

Controle una base lunar cernirá ios 
ataques de unos seres super inteli- 
genies 

Un super ordenador proporciona una 
lotaf visión de las 10 zonas de la base 
Sólo si¡ inteligencia y sus reflejos le 
conducirán a la vidorra 

PRECIO ESPECIAL IVESON 

1.800 pts. sin gastos de envió 

PRECIOS ESPECIALES EN 
PSYTRÜN PARA COMERCIOS 

IVESON 

SOFTWARE 

ESPECIALISTAS EN VENTA POR CORREO 

OFERTA GESTION 

BASE DE DATOS. 3.GOO 

CONTROL STOCK . 3.000 

PROCESADOR DE TEXTOS . . 4.000 
CONTABILIDAD .2.500 

12.500 

PRECIO IVESON . 9.750 

OFERTA 1 

SPECTRUM 48 K. 41.900 

8 JUEGOS IMPORTACION 15,000 

56 900 

PRECIO IVESON. 40.000 

OFERTA 3 

INTERFACE J0ISTICK .3.250 

JOISTICK SPECTRAVIDE0 .2 900 

JUEGO IMPORTACION . . 2.000 

8.150 

PRECIO IVESON.6.500 

TODOS NUESTROS EQUIPOS 
SINCLAIR TIENEN 

1 AÑO DE GARANTIA 

TOOOS NUESTROS PROGRAMAS 

SON ORIGINALES 

OFERTA 2 

INTERFACE 17.500 

MICRODRIVE. 17.500 

4 CARTUCHOS MICRODRIVE 6.300 

41 300 

PRECIO IVESON . 35.000 

OFERTA 4 

IMPRESORA GP-50-5.‘. 28.900 

PROCESADOR DE TEXTOS . 4.000 

32.900 

PRECIO IVESON . 27.300 

CUALQUIER CINTA DE SOFTWARE 
QUE ESTE EN EL MERCADO,IVESON 
SE LA OFRECE CON UN 15% DE 

DESCUENTO. 

PIDA INFORMACION 

DE NUESTRO SOFTWARE-CLUB 

ad|unte sobre franqueado 
con su dirección 

NECESITAMOS PROGRAMADORES 

EN BASIC Y C/M PARA SPECTRUM. 

Dirigirse por escrito adjuntando historial y pretensiones. 

Enviar a IVESON RIERA DE TENA,15 Tria. 4 (pasaje) o 

08014 BARCELONA - Tel. 249 31 96 

CANTIDAD PRODUCTO PU TOTAL 

NUESTRAS CONDICIONES DE PAGO; 

•Giro postal 

•Talón (se ruega confirmado para mayor rapidez en el envío) 

•Transferencia bancaria a nombre de IVESON C/C 1313-08 de La Caixa de 
Barcelona sucursal LA BORDETA. c/. Badal. 90-92 — 08Q14-BARSEL0NA. 
•Reembolso. Enviando el 50% del importe por cualquiera de los otros me¬ 
dios indicados 

•Para una mayor rapidez de envío le rogamos hagan sus pedidos mediante ef V 
talón adjunto \ 

•Gastos de envío para importes de menos de 10 000 pts 300 pts J 

GASTOS DE ENVIO 

total ; 

D . 

J Dirección nüm 

/ Ciudad D P Provincia 

Teléfono. Giro postal Talón nominativo Reembolso 
















































"Roqttunos 
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Llegó la hora de probar sus co¬ 
nocimientos sobre electrónica, en 
aquello que los “entendidos” lla¬ 
man las “puertas lógicas”. El tema 
es bastante didáctico pero sin dejar 
de ser divertido... ¡que de eso se 
trata! 

El programa ilustra el funciona¬ 
miento de las puertas lógicas bási¬ 
cas, en las que se inspira toda la 
tecnología actual, incluso la de 
nuestro Spectrum. Y es precisa¬ 
mente él, quien nos explica cómo 


se comportan estas puertas ante la 
información de “ceros y unos” 
(tensión o no tensión) que aplica¬ 
mos a las entradas, dependiendo 
de los valores de éstas y del tipo de 
puerta obtendremos un determina¬ 
do valor a la salida. Seguidamente 
aparecerá el esquema eléctrico 
equivalente a la función lógica en 
forma de interruptores, resisten¬ 
cias y lámparas, incluyéndose el 
esquema del símbolo electrónico 
que representa a la puerta con los 


valores en sus entradas y en la sali¬ 
da. En el esquema se representan 
las entradas como interruptores, 
siendo “0” cuando están abiertos 
y “ 1 ” cuando están cerrados. Los 
signos + y - representan a los polos 
de la pila, las resistencias son re¬ 
presentadas por unos rectángulos. 
Seguidamente el ordenador pedirá 
que introduzcamos los valores que 
queramos tener en las entradas 
dándonos el valor de la salida. 
Autor: Juan Bautista Pérez 48K 




10 REM 
20 REM 

TWk 


<£> JUAN B. PEREZ LOPEZ 


... DQDPÜ "7 ■ RnonFO -> 

UER 0: BRIGHT 0; FLASH 0: CLS 
«10 REM GRRF ICOS DEFINIDOS 


50 LET Z =99: LET X=192: LET y = 
355 

60 LET q=3: LET V=26: LET w =6 
70 DhTh y,y,x,x,x,y,y,q,y,y,q, 
t j «i, y ) y , q 

SO DATñ y , y , 3,3,3, y , y , q, 127,12 

90 DATñ Z,Z,Z,Z,2,Z,Z,Z,Z,Z,Z, 
Z,Z ,2,127,127 

100 DATA 24-, 12b , 126 , y , y , 126,125 

.i 24- V , V , 1 ,i 2 , i , W , V V 

110 DhT A 4,w,211,227,195,q,q,q, 
V , V , U , W , W , W V , V 
120 DATA q,q,195,y,195,q,q , q 
130 FOR n=USR "a 11 TO USR "a ”+37 
REhD á: PUNE n,a; next n 
14-0 REM nienu principal. 


150 
ICO" 
160 
170 
180 
190 
RAU 0 
200 
210 
RAU 0 
220 
n" 

230 

240 

250 

OR" 
260 
270 
2S0 
290 
300 
:■ + 'OR 
310 


PRINT RT 1,8,: "SIMULADOR LOG 


PLOT 63,158 
PLOT 63,156 
PLOT 15,144 
D R H U 0 , — 12 8 

i 12B 

PLOT 13,146 
DRñU 0,-132 

PRINT ; ñj 5,1© .¡"elige opcio 


DRflU 129,0 
DRñU 129,0 
DRñU 225,0 
DRñU -225,0. 

DRñU 229,0 
DRRU -229,0: 


320 GO SUB £210 

330 rem «Lección puertas 


340 LET a = P E E K 23560 
350 IF a=65 OR a=97 THEN GO TO 
0440 

360 IF a=66 OR a=98 THEN GO TO 
066O 

370 IF a=67 OR a=99 THEN GO TO 
0250 

380 IF a=68 OR a=100 THEN GO TO 
1260 

390 IF a=69 ÜR a=101 THEN GO TO 
1560 

400 IF a=70 OR a=102 THEN GÜ TO 
1370 

410 PRINT hT 11,4;"Pulsa solo ñ 
,B,C,D,E,F": BEEP 2,O 
420 PRINT h'T 11,4; 3$i TO 23) 

430 GÜ TO 220 

440 REM INUERSQR 

450 REM 

460 REM dibujar esquema 
470 REM 

480 PRINT HT 18,6; "PUERTH TIPO 
INVERSOR": GO SUB 2180 

490 PRINT RT 10,19;" _ _" 

500 GIROLE 194,83,2: OUER 1: PL 
□T 193,88: PLOT 194,88: PLOT 195 
.8b: OÚER 0 


PLUT 79,126 
LET a $ = " = 

PRINT HT 7, 


PRINT RT 9, 
PRINT RT 11 
PRINT RT 
PRINT RT 
PRINT RT 
EXOLUSIUfi 
PAUSE 0 


13 

1" 

1 


DRñU 9b,0 
puerta tipo 
4; "ESI" +at + " INUERS 

4; "S" +a í + ' hND" 
,í;TÍ" +a $ + ''OR" 

, 4 ; "S" +a $ + ' , NñND' 1 
,4 , “g"+a $ + "NOR" 

,4; "a"+a $( to 10 


510 

PLOT 

192,68: 

DRflU -24,- 

16 : 

D R H U 

0.32: 

DRñU 2 

4 , -16 


5£0 

PRINT 

RT S,19; ,l ñ 3" 


530 

PRINT 

RT 8,3 

; 11 + 

PLOT 

39 , 

108: DRñU 8,0 



540 

PLOT 

71,108 : 

DRflU 87,0 : 

DRR 

U 0, 

-12 



550 

PLOT 

103 i 67: 

DRAU 0,-12 

: DR 

hU 

67,0 




560 

PLOT 

91,108: 

DRflU 0,-12 


570 

PLOT 

91,87: 

DRhU 0,-12 



590 PRINT RT 11,10;"S“:ñT 11,14 
a ,, 

600 rem control inversor 


5 
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No se caliente la “CABEZA” 


SEIKOSHA 



Nuestra calidad es "SEIKO 1 '; 
nuestros precios, únicos. 

Si desea más información, 
consulte con nuestro distribuidor 
más cercano, o llame o escríba a: 



Dirección comercial: 


Av. Blasco Ifyáñúz, 114-116. 
46022- Valencia. 

TeL (96) 372 88 89. 
Téiex 62220 

Delegación en Catalufla: 

0/ Muntaner r 60. 4 r 1. 
OSOIhBarcefona. 

Jet. {93} 323 32 19. 


ESTOS SON NUESTROS MODELOS: 

-——----- 


— 

Modelo 

Velocidad 

Columnas 

Tipos de 
letra 

Inferface 

P.V.P. 

GP-5Ü 

40 cps' 

46 

2 

A-Paralelo 

AS-Serial 

S-Spectrum 

A-25.900 

AS-29.900 

S-28,900 

GP-SÜO 

50 cps 

80 

2 

A-Paralelo 

AS'Serial 

A-47 900 
AS-49.900 

GP-550 

86 cps 

80-136 

18 

A-Paralelo 

A-59.900 

GP-700 

50 cps 

80-106 

3 1 

A-Paralelo 

A-89.90Q 

eP-5200 

200 cps 

136-272 

18 

Paralelo y serial 

199.000 

BP-5420 

420 cps 

136-272 

18 

Paraleo y serial 
l-IBM PC 

299.000 

1-299.000 


Disponemos de interfaces opcionales para todos los modelos: IBM PC, COMMÜDQRE 64 ZX 
SPECTRUM, ATARI, DRAGON 64, SHRAP MZ 70Q r SPECTRAVi DEO, NEW BRAIN, APPLE, ETC 











































V, 


rograms 


610 PRINT hT 21,1.;" pulsa valor 
de h i/B (M=mtnu)": PAUSE 0 
620 IF INKEY*="0" Th£N PRINT RT 
10,13; " ,; RT 13,19 j "O l"; I 

NK S:RT 10,11,"*": BEEP .2,10 
630 IF'INKEY*="1" THEN PRINT RT 
10,13;"1";RT 13,19;"1 0"; I 

NK 1,RT 10,11;"*": BEEP .2,25 
64-0 IF INKEY * = "«)" OR INKEY* = ’M" 
THEN GO 5UB 2210: GÜ TO 150 
650 Gü TO 0590 
660 REM Puerta AND 


670 REM 

660 REM dibujar escuetoa 


;RT 11,19 


690 GÜ SUB 2170 
700 PRINT RT 9,19;". 

: "_" . RT 10 .24; "_" 

710 PLOT 167,103: OFRU 0,-30: D 
RRU 10,0: DRRU 0.30,3: DRRU -10, 
0 

720 PRINT ÑT 6,3/ + ■ ■"; RT 

12,3;"-";RT 10,13;"1",RT 18,8,"P 
ÜERTÑ TIPO AND" 

730 PLÜT 39,105: DRRU 63,0: DRR 
U 0,-35: DRRU -66,0 
740 PRINT RT 9,6;"a b" ;RT 10,1 

2 ; "s" 

750 PRINT RT 6,19;"R";RT 13,19; 
"B", RT 9,25; "5" 

760 REM Con rol RND 

770 PRINT RT 21,1," pulsa valor 

de R 1/0 (Mslíienu) " : PAUSE 0 

7S0 PRINT RT 10,27;“ ";RT 11,17 


790 IF INKEY$="m" OR INKEYls"N" 
THEN GO 5UB 2210: GO TO 150 
300 LET a *=INKEY $ 

310 IF a$ 0 "l" RND a* O "0" THEN 
GO TO 0790 

320 LET a =URL a $: PRINT RT 9,17 
;a: IF 3=0 THEN PRINT RT 
GO Tu 0340 
S30 PRINT RT 3,7; 

340 BEEP .2,20 

350 PRINT RT £1,1;" pulsa vaiOr 
d£ B 1/0 "; PRUSE 0 

360 LET b*=INKEY* 

370 IF b*<>"1" RND bí<>"0" THEN 



GÜ TO 0360 

330 LET b=URL b$: PRINT RT 11,1 
7j b: IF b=0 THEN PRINT RT 3,10," 
*'■" : GO TÜ 0900 
390 PRINT RT 8 , ttR'-'W» 

_900 LET S =a RND b': PRINT RT 10, 
27, S 

910 BEEP .2,15 

920 IF S =0 THEN PRINT INK i;RT 
10,13;"*"; GÜ TO 0940 
930 PRINT INK S r RT 10,13;"*" 

940 PRUSE 3; Gü TÜ 0760 
950 REM Puerta OR 


960 REM 

970 rem dibujar esquema 


950 GÜ SU6 2170 

990 PRINT RT 9,19;"_";RT 11,19 

;" '";RT 10,24;"_" 

1000 PLOT 167,ieST DRRU 0,-30,-1 
.5; DRRU 10,0: DRRU 0,30,3: DRRU 
- 10,0 

1010 PRINT RT 3,19:"fl";RT 13,19; 
"6";RT 9,25;"5" 

1020 PRINT RT 7,9;"a";RT 11,9;"b 
11 i RT X 1 12 i “S 4 ' 

1030 PRINT''RT 8,3;"+ ■'; RT 

10,10; .; RT 10,13; , RT 12,3;" 

1040 PLÜT 39,108: DRRU 68,0; DRR 

U 0,-35; DRRU -63,0 

1050 PLÜT 75,103: DRRU 0,-16: DR 

RU 16,0; DRRU 0,16 

1060 PRINT RT 13,3;"PUERTR TIPO 

ÜR" 

1070>REM control OR 


1030 PRINT RT 2l,l;" pul¿a valor 
de R 1/0 íMaffienu) " : PRUSE 0 
1090 PRINT RT 10,27;" ";RT 11,17 

. i i ■ ■ ■ 

1100 IF INKEY $ = "Hi" OR INKEY*="H" 
THEN GO SUB 2£10: GO TO 150 
1110 LET a $ = INKEY $ 

1120 IF aíO' l" RND a$ 0 "e" THEN 
GO TO 1110 

1130 LET asURL a $; PRINT RT 9,17 
; a ; IF a=0 THEN PRINT RT 3 , 10 ;"F* 



GOSANEZ 


PUEDO DEC ¡ti LO 
QUE OPIMO DEL 
^-1 bAS /c - 


|/AVOLVISTE A l£eH Algún 
LiSfto Po ií*Jdó(íÁFko / 
SoM£ CÓDIGO «ÁOO/'WA/J 


































1 : 6U TU 115© 

114.0 PRINT RT 8,10; 

1180 BEEP .2,25 

lie© PRINT hT 21,1; m pulsa valor 
de B 1/0 ■' : PftUSE © 

1170 LET b J = INKEY$ 

1130 IF b $ O • 1 HMD b$í>"0" THEN 
60 TO 1160 

1190 LET b=URL bí; PRINT RT 11,1 
b. IF b =0 THEN PRINT hT 10,10; 

: bO TG 1210 
1200 PRINT RT 10,10; ¡, «" 

1210 BEEP .2,15 

1220 LET s ~a ÜR b PRINT PT 10,2 

“? - 

1230 IF s=0 THEN PRINT INK 1;RT 
10,13.1 ' #" : 6Ü TO 1250 
1240 PRINT INK 5 ;hT 10,13;"#" 
1250 PAUSE 3: 60 TO 1030 

12b0 REN puerta NñND 


1270 REN 

I2o0 REM dibujar esquema 


1290 60 5UB 2170 

1300 PRINT hT 9,19;" _” ; RT 11,19 

; "_" ; RT 10.24, " 

1310 GIROLE 194,33,2: OUER 1; RL 
ÜT 193,83. PLOT 194,88: PLOT 195 
,33: OUER 0 

1320 PLOT 167,103: DRRU 0,'30: D 
RRU 10,0: DRRU 0,30,3; DRRU -10, 
0 

1330 PRINT RT 8,19: "fi";RT 13,19, 
B" ;RT 9,25;"S" 

1340 PLOT 39,103; DRRU bS,0: DPR 
y 0,-32: DRRU -68,0: PLOT 84,106 
DRRU 0,-32 

4380 PR INT hT 3,3 i " + " ; hT 3,8, ' ‘ 1 — 
U ‘;hT 8,12, hT 12,12, "*" ; RT 1 

2,3; " ; hT 10 , 10 ;".*" 

1360 PRINT RT 13,8; "PUERTA TIPO 
NRND" ;RT 7,13;"a";RT 13,13,"b";H 
r lo , 9."s" 

1370 REM contrO l NRND 


1330 PRINT RT 21,1;" pulsa valor 
de H 1/0 (Mamenu)": PRU3E 0 
1390 PRINT hT 10,27;" " ; RT 11,17 

1400 IF INKE'Y í a'Tii " OR INKEY $s"M" 
THEN 60 SUB 2210: 60 TO 150 

1410 LET a( = INKEY $ 

1420 IF atO M l" AND aio'S 1 ' THEN 
60 TO 1410 

1430 LET a =UñL a $: PRINT hT 9,17 
.a: IF a =0 THEN PRINT RT 8,12 
: 60 TO 1450 

1440 PRINT RT 8,12; 

1450 BEEP .2,20 

1460 PRINT hT 21,1;" pulsa valor 
de 61/0 PAUSE 0 

1470 LET b5=INKEY$ 

1480 IF b$ < >"1" RND b$í>"0" THEN 
60 TO 1460 

1490 LET b = UAL b$: PRINT RT 11,1 
7b : IF b=0 THEN PRINT RT 12,12: 
'*■>" : 60 TO 1510 

ISO© PRINT RT 12,12;"«" 

1510 BEEP .2,10 

1520 LET S=NQT ta RND b); PRINT 
RT 10,27;S 




1530 IF S =0 THEN PRINT INK 1;RT 
10,10;'#": 60 TO 1550 

1540 PRINT INK 5.RT 10,10;"*" 
1550 PhUSE 3: 60 TO 1330 

1560 REM Puerta ÑOR 


1570 REM 

1530 REM dibujar esquema 


1590 60 SUB 2170 

1600 PRINT RT 9,19r-"_" , RT 11,19 

; 11 _"; RT 10 , 24 ;"_" 

1610 PLOT 167,103: DRRU 0,-30,-1 
.5: DRRU 10,0: DRRU 0,30,3: DRRU 
- 10,0 

1620 PRINT RT 8,19; ,J R" ; RT 13,19; 
'B 1 '; RT 9,25; "S" 


1630 CIRCLE 194,68,2: O'JER 1: PL 
OT 193,88: PLOT 194,88: PLOT 195 
,88: ÜUER 0 

1640 PRINT RT 11,3; "a" HT 11,10; 
b";RT 11,la,"s" 

1650 PLOT 39,108: DRRU 63,0: DPR 
U Ü..-32: DRRU -63,0: PLOT 76,108 
DRRU 0,-32: PLOT 92,108: DRRU 
0, -32 

1660 PRINT RT 8,3;"+";RT 8,6 ¡ "EZ 
3 " i RT 10,11;"*"; RT 10,13;"*’’; RT 
12,3; " ; RT 10,9; '“*" 

1670 PRINT RT 18,8;"PUERTA TIPO 
ÑOR" 

1680 REM Control ÑOR 


1690 PRINT RT 21,1," pulsa va lo r 
de R 1/0 ,(M=menu > " : PAUSE 0 
1700 PRINT RT 10,27," ",RT 11,17 

1710 IF INKEY* = "ffi" OR INKEY $ = "M" 
THEN 60 SUB 2210: 60 TO 150 

1720 LET a $ = INKEY $ 

1730 IF a$ 0 "l" RND a$O"0" THEN 
60 TO 1720 

1740 LET a =URL 3$: PRINT RT 9,17 
a : IF a=0 THEN PRINT RT 10,9; "í 
' : 60 TO 1760 

1750 PRINT hT 10,9; " I" 

1760 BEEP .2,25 

1770 PRINT RT 2l,l;" pulsa valor 
de B 1/0 ": PAUSE 0 

1760 LET b $ = INKEY $ 

1790 IF bíO"l" RND b$<>'’0" THEN 
60 TO 1780 

1800 LET b=URL b$: PRINT RT 11,1 
7jb. IF b=0 THEN PRINT hT 10,lí; 

1 y : 60 TO 1320 

1510 PRINT RT 10,11; 11 I" 

1820 BEEP .2,15 

1330 LET S=NÜT (a OR b)i PRINT R 
T 10,27;s 

1840 IF s=0 THEN PRINT INK 1;RT 
18,13,"#"; 60 TO 1630 

1350 PRINT INK 51RT 10,13;"#" 
1360 PAUSE 3: GO TG 1630 
1870 REM Puerta OR exclusiva 


1880 REM 

1890 REM dibujar esquema 


1900 60 SUB 2170 

1910 PRINT RT 9,19;"_",RT 11,19 


















vt 


T<9Q[!ÜMÚ£ 


_ AT 10,24- ,_ 

1920 PLÜT 167.-103: DRAW 0;-60,-1 
.5, DRRU 10.0: DRRU 0,30,3: DRRU 
-10.0: PLÜT 163,103 : DRRU S , -30 

.- 1.6 

1930 PRXNT AT 6 19,; "A" AT 13,19; 

1 " ¡ pT 9 , 2 F> ; " s " 

134-0 PRINT _ RT 3,3; “; RT 12,10; 

l;;;RT I3,6;‘al ¿ Íb",ñT 14-,3; 11 

19S0 PLÜT 39,103; DRhU 63,0; DRh 
U 0,-50: DRRU -69,0: PLÜT 60,10S 
: DRRU 0.-50. PLÜT 60.76: DRRU 4- 
3,0 

1960 PRINT RT 13,4;"PUERTA TIPO 
ÜR EXCLUSIUA' 

1970 PRINT RT 9,7; 11 fl IT' ,¡ RT 1 

0,7. II |l"AT 11,7, "U U" 

1960 REH c o n t r o i, o r ex. 



0 


1990 PRINT hT 21,1;" pulsa valor 
d € H 1/0 (M =[ftenu ) " : PhUSE 0 
2000 PRINT RT 10,27.;" "RT 11,17 

2010 IF INKEY 1*' fíi" OR INKEY (s"M” 
THEN GO SUB 2210: Gü Tü 150 


SIMULADOR LOGICO 


esquema 



* f S jf " b 


s i ífi bo lo 
R 

0 ^r -\ 5 

0 if : 

0 —ií ■' 

B 


PUERTA TIPÜ ÜR EXCLU3IUA 


pulsa valor de A i/0 (m = r»enu; 


SIMULADOR LOGICO 




ni d 

3 i M b ü LO 



R 

® —T\ s 

i _ r - s 

i 

+ —1 ii 1 | 

a fb 




i_ 

6 

PUERTR TIPO ÑOR 


pulsa valor de A 1/0 (M=menu 


2020 LET a $ = INKEY$ 

£030 IF a $ < >"1" AND a $ O "0 " THEN 
GO TO 2020 

2040 LET a=UAL a$: PRINT AT 9,17 
a: IF a=0 THEN PRINT RT 13,7 ;"¿ 


GO 'Tü 2060 


I" 


pulsa valor 
PAUSE 0 

biO 1 '©" THEN 


INOT i a 


2050 PRINT AT 13,7,' 

2060 BEEP .2,25 
2070 PRINT AT 21,1;' 
de B 1/0 

£030 LET b$ = INKEY$ 

2090 IF bíO'T AND 
isÜ TO 2030 
2100 LET b =UhL b$: PRINT AT 11,1 
7,b: IF b=0 THEN PRINT RT 13,13; 

' GO TO 2120 
2110 PRINT AT 13,13,"I" 

2120 BEEP .2,15 
2130 LET s=ía OR b) AND 
AND bJ J : PRINT AT 10,27;S 
2140 IF S =0 THEN PRINT INK 1; AT 
12,10;"#": GO Tü 2160 
2150 PRINT INK 5 ,¡ AT 12,10;"#" 
2160 PAUSE 3: GO Tü 1990 
2170 REN PRINT PRESENTACION 
2160 PLOT 127,128: DRRU 0,-80 
2190 PRINT AT 5,5 ; "e £ que ma " : AT' 5 
. 19; “s i m bo lo " 

2200 RETUF'N 

2210 REN borrado ventana 
2220 LET a $ = " 

2230 FÜR n =4 TO 13: PRINT AT n,2 
;a $: BEEP .006,n*2: NEXT n 
2240 PRINT AT 21,2,3$+" RETUR 
N 

SIMULADOR LOGICO 


* s quero a 


£ i 

m bo lo 

a 

R 

l _ 

1_ 


IX 


"x 5 

J- 8 

b 

B 


PUERTA TIPO NAND 


pulsa valor de h 1/0 íM=menu) 


GRAFICOS 

ABCDEFGHIJK 

C = 3 n II U • 7 I « 


6 

































































APRENDA Y DIVIERTASE UN MES ENTERO. 
NO PIERDA TIEMPO TECLEANDO PROGRAMAS. 



¡(jc o eá& a- &ju o*e>wií¿b ¡ 




QfryifnAÍCL W14W.Í 

9 ev> 4H' 


INFODIS, S.A. 

Bravo Murillo, 377-5. °-A 
28020 MADRID 

enviando el cupón que encontraré 
en esta revista 


ordenador 


morse fácilmente 


Sorpréndase o 


campeón 


Conviértase 


BOMBAPP®®; 

Destruya la ciudad y aterr 


SPECTRUM 


S , i • j 1 ; ■ i ■ i . 

fcMMEMÉ 

















































SOFTWARE PROFESIONAL 
PARA ZX-SPECTRUM 


* ocnni* riiiQunn ficms 

0 OCaCOM! HÍCHIUD 
«EimiRü rieras 
o SELEcagum inrraracum 

4 «El HCMS SaCttlIBIHMB 

4 snuLRit rieras sii.ce curaras 
4 LI5TII ncms SCLECUOmMS HHESM 
4 asm iirraracun fuimm nmsui» 

4 5 IDE PUCR .4 HRCHIVB 
4 5SUE SOLI RRCKIUD 

4 ksomen ncms seleccidbims 

4 LUD MOflUH 
4 ItEICE MCHIVB 


MENU 


IMPRESION N. 
cod. impresión 
INTERFRCE 
CHR* Gráficos 
MEMORIR EXTERNñ 
TEXTOS Pers. 
CATALOGO 
EDITOR 

Canb.en INFO 
IMPR.con FICHA 


flKHIUO: Prueba DperaeiM:HEOII 
lav t fichú 5eUcci4M<laí: 0 


CONTEXT V.6 <*) - Procesador de textos 64 
columnas. Caracteres españoles. Cartas per¬ 
sonalizadas. ¡Sensacional! 

P.V.P. 4.000,— Ptas. 

CONTABILIDAD PERSONAL {*) - Contabi¬ 
lidad doméstica o de pequeño negocio. 64 co¬ 
lumnas. P.V.P. 2.500,— Ptas. 


SITI (*) — Sistema integrado de tratamiento 
de información. Base de datos con posibili¬ 
dad de cálculos complejos y ficheros 

auxiliares. P.V.P, 4.000.— PTAS. 

BETA BASIC.— Más de 50 nuevos coman¬ 
dos de Basic para tu Spectrum. 

P V.P. 3.000,- PTAS. 


HISOF PASCAL.— El único compilador de HISOF DEVPAC (*}.— Conjunto de dos pro- 

Pascal creado para el Spectrum. gramas, ensamblador y desensamblador de 

P.V.P. 3.500,— Ptas. código máquina. Impresionantes. (GENS 3M2 

y MONS 3M2). P.V.P. 3.500,— PTAS. 

CYRUS IS CHESS- El mejor ajedrez. 

Campeón de Europa de 1981. 

* Compatible con Microdive y/o cassette P.V.P. 3.000,- PTAS. 

y cualquier impresora e interface de 
impresora 


GRAFPAD 



,. J TABLETA DIGITALIZADORA PROFESIONAL 

Los mejores dibujos realizados ^PFfTRI JM dfi K 

cómodamente. Trabaja hasta PARA ZX-SPECTRUM 48 K. 

3 pantallas a la vez. Incluye 
programa de funcionamiento y manual 
completo en castellano. 


TIENDA; 


C/. Córcega, 89 - Entlo. 
08029-BARCELONA 
Tel. (91) 230 97 90 


VENTAMATIC eS 


P.V.P. 

39.000 

PTAS. 



PEDIDOS POR CORREO: 
Avda. de Rhode, 253 
ROSAS (GERONA) 

Tel. (972) 25 56 16 
























LaB® 4 fa 

Con este programa podrá jugar 
tranquilamente a “La Bolsa” y de¬ 
cimos tranquilamente porque no 
perderá grandes sumas de dinero y, 
por supuesto, no será necesario 
que se lance por la ventana si no 
tuvo suerte. 

El juego tiene cuatro niveles de 
dificultad, lo que determina cuán¬ 
tas acciones cambiarán de valor 
independientemente de la infor¬ 
mación que se da a los jugadores. 
Dependiendo del número de juga¬ 
dores, deberá elegir su nivel cuida¬ 
dosamente. Así, por ejemplo, sí 
juega solo le aconsejamos que elija 
el nivel 4; para dos es conveniente 
el nivel 3; con tres es mejor el nivel 
2; y para cuatro o más jugadores es 
aconsejable el nivel 1. 

En el mercado existen siete com¬ 
pañías en las que podrá invertir o 
especular, especialmente con los 
rumores de que le informa el orde¬ 
nador. Las acciones de Akran, Bel- 
so. Cobra y Dobro no fluctúan de¬ 
masiado, mientras que las de Elsa 
y Finet presentan oscilaciones 
mayores. Con las acciones de la 
Compañía Bchip será difícil que 
pierda dinero, pero más difícil aún 
será que se convierta en un Rocke- 
feller. 

Anímese y ponga en juego algo 
más que su imaginación. 


Autor: P. Y. 16K 


ib SBK Í? 7: BORDER 7 i 

LS : POKE 83609¿69 i POKE 83680,» 
IB PRINT RT.iA.Uj PRPER lj IN 

^SÁ^LET^SÍsSbERTTEMRT«01 LET QRH 

Z¡¡!' p 

RI aa PP¿NT R jl?^NÍi«i«ro dt 


Hi 


tgí 

ai 

31 


IL K* 

; R— 


S5i8 T =*á6 c S5l lili 

10í 


o.* a maM'MPTMÜ* 

RO TO IB &TEP &: PRINT 
|T R ( 7í " ' " J RT R jfii 
3.LÍ: |F_6«4,U 
Rjfl?;Síf,Li¡ P 


*3 L _ 

48 FOR R«3 T 

RT R,5i|í«<DjHt 

. 


ni 1 1 w i 

oÍ'Vn¿N T PRIÑT RT RTa7¡S(B;L) i 
RINT RT Rja6¿"8'': 00 TO 40 
46 PRINT RT R^aB;"^' 

46 LET L-L+l: NEXT R 

8 0 RETURN 

9 REH Bu CU princiMLi 























Que sepa mucho de ordenadores. 

Que esté dispuesto a jugar y a enseñarnos. 

Ya puedes encontrarlo, a partir de noviembre, 
en todos los quioscos. 

Se llama Y te dará 116 páginas de juegos, 

programas, diccionario de informática, 

cómics, aventuras y todo para tu ordenador. Quiérelo 


el amigo de tu ordenador? 


Una revista-libro diferente, para 
los nuevos genios de la informática 


































1*5 00 SUB 40 

11® POR Nal TO NUMOFPLAYERS: 00 
SUB 18®: 00 SUB 15®: 00 TO 81® 
18® PRINT AT 1,1®j. PAPER Si "JU9 

13® POR SSo^TO 15 STEP 8: PR1NT 

NT A RT P 16 I ¡ I 8^ fi pRp|¿ a 6; "Dispon ib?? 1 
en Jugada ?' i QAMETURN; " n ;PÍ®, 

já] . péturn 

16® PRINT AT 16.,®; PAPER ti.l'RU» 
ores": POR Rali TO 

*15a N PRINT AT 81,1®; 



ÍD 


8®: 00 SUB 6® 


169 LET BRlBE*10+6lINT (RND*8) 

Ü!l«rr **i w io i á» ,, Httí n L 

Í¡8*IP Y* 

YÍO"N" A 

17® 1F Y* 

T BRIBEAT 

¥Í® 6 Ü? 


BR 

Y 


O "9" ANO Y( < >"SI" ANI 
ND Y>< >"NO" THEN 00 “ 


¥8 


ET 

6 


." 5 " OR Y*a"6X M THEN L 
TEMPTal: LET Aa&l: 00 


REM 


_ BRIBERTTEMPTa® 

19® RETURN 
81® 00 SUB 860® 

3SÍ NEXT N 

iPM.ív'íviwá rg? g-M?.r 

887 NEXT N 

BCHIP E JNCRÍASE TÍF ANYk 
840 FOR Nal TO 7: LET S(l,N>aS( 
1,N)+S<3,N): 1F Síl,N) <«® THEN O 
O SUB 7000 

846 IF S (1, N) >40 THEN LET 6(1,N 

is® F0 R T n2i TO 6: XF f(*¿N>*4 T 
HEN LET 8(6,N)aS(B,N)-l: IF6T8, 
Nk a® THEN LET 6í4,N)al 

MI 

3^ paper fl¡"Pu ise cualquier ttel 

‘8ÍS¡?SN25aSSügK5?B M ^B N «ÍNÍ 

T 19,1®; XNUER8E lj"UUlM Jug 

' Vi" 


XF 

T 

ATI®,!®; XNUERSE 1;"UIU«1 JUQS 

d |l® IF QAMETURN >OAMELENOTH THEN 

38® T F0R N*1 TO 6; LET 8(3,N)bIN 
T (8.54(.5*5(3,N)kk ; IF 6íl,N)a4 
8 THEN LET 9t3±N>"9 , v _ __ _ n 

330 NEXT N: LET 8(3,7)a«: 00 TO 


íll® CLS ? U pRlW AT 3,®; PAPER 
;"Rg»oris desconocidos pera lo 

.•iWttT.»' 

jb|4INT (RND 


4® 

h 

4886 PAUSE 180 
4030 RETURN 

bISn í M w mtl 


os 

.. . TO 6+LEUEL: LET RAN 
RND*47 )\ 00 SUB 6®18: N 


Yr<QQpM&S 


8888 


Presione para finalii 

PRINT ttljAT 8,8; 1 

mp r * IB) 

LET Y 

_ IF . 

1,0;"No st 


|*KJ 
5885 IF Yfa"E 


Uende <! 
00 SUB 


o Con 

00 

■ T THEN PRINT «1; AT 

retire! ! 

PAUSE 15®: RETURN 
5887 IF Y*b ,, S" OR Yf» B 
TO 5030 


) 

91 


THEN 00 


6889 00 TO 5080 
503® INPUT "NUffl 


mero d« 
INPUT "Nonbf* «i 


* c Clenes 


¿NÜM 

504 ® 

NE C*: FOR L«1 TO 
THEN 00 TO 505® 


prest 
IF C*aN« 


LI 
(L) 


#1;AT 0,®;"NO 
USE 1¿0*'oo'tO U 50 

*p'b 


6045 NEXT L: PRINT 
existe it empresa 

e de nuevo": PAU! 

80 

6060 IF 8(4,1)01 THEN PRINT 
AT 1,®;"ACC. suspendidas 
USE 150: 00 TO 508® 

5056 IF Y(■"8" THEN 00 TO 5100 

5057 IP Y*<>"B" THEN 00 TO 6080 
8060 IF NUM >S(8,L) THEN PRINT 51 



80 

5®6® LET S (8,L)aStt.U -NUM: LET 
P(L,N) aP (L, N) +NUM; LET P(6,N)ap< 
B¿N)-(S(1,L)*NUM): BEEP .88,®: P 
" liifif 0,0;NUM;"Acciones "; 
coste ron - ; S 1 1, Lk *nu 


NT 0 St 1+L*8,14;s(8,L)1' 

S 5 VWÍW"‘; 

NUM >P(L,N) THEN PRINT i 


B,l“í ' 

RINT 
OS; " 

M: PAUi 

609® PRir 
PR INI 
00 SUB 

. J® IF NL_ _ - 

íT 0,0;"NO dispone de " 

«clones de '“,0*;: PAUSE 
TO 508® 

511® LET P (B,N)aP(6,N)+NUM*8<1,L 
J; LET S (8,L)«Sí8,L k 4NUM: LET P( 
L ,N) ap (L , Nk -NUM: PRINT ttl¡ AT ®,® 
;num;" Acciones Cí;vendí des 
por ^¡8(1,L>*NUM: PAUSE 800: 00 

6®0® 8 REH información « juotdores 


91 

,NUMí" a 
180: 00 


6006 IF BRIBEATTIMPTal THEN L 
P(B,N)aP(8,N)-BRIBE: 00 SUB 1 
IF RND>.6 THEN 00 TO SIS® 


40: 


6010 LET RANlal+XNT tRN0j49) 

SOIS IF AANl>38 THEN 00 TO 6070 
6018 LET RANlaltINT (RNptek,^ 
6088 IF M (AANlk >0 THEN LET g|a"A 
r . ": 00 TO 6040 

ÜJi h|í ^ 

•ase let 

ANÍ k 

6060 PRINT RT R,10;N|(RAN8Í¡" " ¡ 
Ul; " ABS H (AANl) ; " " t 

RETURN_ __ 

618® 


rSÑs-Í+INT (RND*4) 

S (3 , RAN8) «S (3 ,RAN8) +M(R 


601® 


17.0; PAPER a; INK 


lili íET R BSftíí8 + ÍBf^g8 P ¡8 

609® IF M(AANlk >® THEN LET 
r.": 00 TO 611® 

6100 LET U»a"Ab." 


) 


U«a"R 














Vi 


royemos 


11® LET RRN8"S+INT (RND#8): 00 

613® IP RRN1>43 THEN POR L«1 TO 
3; IP 3 (4, L)■! THEN LET 8(3,L)*8 
(3,L>+a¡ NEXT L; PRINT RT R,l®j 11 
Toda* '8 Rf. "; RETURN 

6138 IP RAN1-44 THEN POR L«1 TO 
6; IP S(4,U «1 THEN LET 3(3,L)«3 
(3,0-8; NEXT L; PRINT RT R, 1®¡ " 
Toda» '8 Rb. "i RE+URN 

614® IP RRNl>-48 THEN 00 TO 6168 
615® LET RRN8«1+INT (RND#6); LET 
3¡6,RAN8)«8+INT (RND*3): PRINT 
RT R,10,Nf(RRN8)," CanctLado 
11 ; RETURN 

6160 PRINT RT R,10j”fiSC*n »0 Can 
«Lado "! INPUT "Emprata ";y* _ 

R L*1 TO 6: IP VliNI(L) THEN 00 
TO 6178 

6170 NEXT L; PRINT RT R,87i"Nih9 
una": RETURN 

6175 LET 3(4.0 *1: LET 3(6,0 «0: 

PRINT RT R,$7;Y|: PRINT RT 1+L* 
8,86;"N RETURN 
6168 LET RRNlül+INT (RND#4) 

3198 LET P (9,N)«PC0,N)-30*RRN 



’M 


‘S+ r 


R, 10, 
soborno' 1 


Multa 

PRUSE 


1¿« 


0a 


6800 PRINT 
RRNl; 11 por 
00 SU6 140 
6280 RETURN 
7808 rem Bancarrota 
7010 POR L«1 TO NUMOPPLRYERS: LE 
T P(N,D«0: LET P(N,L)*«! NEXT L 
7020 LET 5 í 1, N)«IB: LET 3(3.N)-0 
: LET 3 (4 , N)■ 1; LET 3(8,N)>160; 
LET 3 (5,N)*0 

7030 BEEP .4,0; BEEP .3,0: BEgP 
.2,0: BEEP .4,0: BEEP .4,3; B 
.8,8: BEEP .3,8: BEEP .8,0: 

P .3,0; BEEP .8,-1: BEEP .4,0 
RINT RT 18,0;'Ptrdidas las accio 
nts da ”,N<(N);“ Bancarrota 11 : PR 
U3E 130 
7040 RETURN 

8000 REM ini Ciauiacion , 

6010 DIM M(14): DIM N*<7,5) 

6080 POR Nal TO 14: RERD M(N): N 
EXT N 

8030 ORTR -4,-3,-8,-1,1,8,3,4,3, 

^ w v U ^ 

8¿4¿ PQ¿ Nal TO 7: RERD NI(N): N 
EXT N 

6080 DRTR "RKRRN","BEL30","COBRA 
", "DOBRO", "ELSAT 1 


8110 DIM 3(6,7): DIM 
AYERS) : DIM Ul (4) 


TINET 11 ,”BCHIP 
P(6,NUMOPPL 


3180 

6130 

8140 

8160 

816 

816 

817 

817 . 

8180 


POR 

LET 

LET 

LET 

LET 

i# 


1+3,0 al 
1+4,0 «0 


| 0 ; 


Nal TO 
NEXT N 


100 NE) 

110 POR Nal TO NUMOPPLRYERS: 


NU 


LE 


Lal TO 7: LET Nal 
3(N,L1a15 
3(N+l,L)a100 
3 (N+8,0 a0 
3<N+r ‘ ‘ 

3 <N‘ 

T L 

8(1,7)«10 
POR Lal TO 7; POR 
M0PPLAYER3 
8190 LET P (L,N) 

8200 NEXT L 

T Pía, N)a 1000 : NEXT N 
8880 RETURN 

9000 REM Pin dai juago. 

9005 CL3 : PRINT RT 1,10; 

3;"PIN DEL JUEGO" 

9010 LET Ra4 

9080 POR Nal TO NUMOPPLRYERS 
9030 POR Lal TO 7: LET P(B,N> 

8,N)+3 (1,0*P (L,N) i NEXT L 
9040 PRINT RT R,0;"JUGADOR "JNJ" 
TOTALIZO ' 11 ; PCB, Ni): LET RaR+4 
NEXT N 
STOP 

REM Entrada. 

PRUSE 1: PRUSE 0 
LET KlalNKEYI 
RETURN 


PAPER 


iP( 


9060 

9060 

9100 

9110 

9180 

9130 



RKRRN 

' 15 

100 

0 

N 

0 

BEL30 

ID 

T* 

\ 

100 

0 

N 

0 

COBRA 

' 15 

100 

0 

N 

0 

DOBRO 

' 15 

100 

0 

N 

0 

EL3RT 

' 16 

100 

0 

N 

0 

PINET 

" 15 

100 

0 

N 

0 

BCHIP 

Oispo 

J 10 
n i b la 

100 0 
*n jugada 1 

N 

0 

1000 


Rumor** RKRRN Ar■ 8 

Raetnso cancalado 



En el próximo número más... 

— CONSOLA PARA EL SPECTRUM. Construyaselo usted mis¬ 
mo. Ordenador, impresora y amplificador de sonido en perfecta 
unión, 

— PASCAL. Se inicia la serie del lenguaje más prometedor en el 
mundo de la informática, ya disponible para el Spectrum. 

— CALENDARIO. Convierta su Spectrum en una agenda del pró¬ 
ximo año y obtenga un bonito calendario. 

— EL CUBO DE RUBIC. Tortuoso juego bidimensional. 

Hanraso 

- i 
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